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INDUSTRIA OGGI 

Il mensile dell’alta 
tecnologia nell’industria 
moderna: soluzioni 
applicative e nuovi 
orientamenti in R&S, 
produzione e servizi. 
Abb. annuo 10 numeri 
lire 41.000 
anziché lire 00.000 


ELETTRONICA 

OGGI 

La più autorevole rivista 
italiana di componenti, 
strumentazione ed 
elettronica professionale. 

Abb. annuo 20 numeri 
lire 79.000 ^ ^ 
anziché lire JOfttitiO 


EO NEWS 

Il primo e unico 
settimanale professionale 
italiano di elettronica, 
strumentazione e 
automazione, con una 
sezione interamente 
dedicata ai nuovi 
prodotti. 

Abb. annuo 40 numeri 
lire 79.500 


INFORMATICA 
OGGI MESE 

L’informatica 
professionale: 
dall’elaborazione dati 
all’office automation. 
Servizi speciali e 
anticipazioni esclusive 
della Silicon Valley. 
Abb. annuo 11 numeri 
lire 40.000 
anziché lirT4§;50D 


NOI 128 & 64 

La rivista con disco o 
cassetta dei package 
professionali, modelli 
applicativi e giochi 
intelligenti. 

Mbb. amib ^ m ,r ' 

(con cassei 
anziché lire^ 

(con discof ' 
anziché lire 


INFORMATICA 

OGGI 

SETTIMANALE 

Il newsmagazine 
settimanale d’informatica 
professionale Jackson. In 
ogni numero, una 
sezione interamente 
dedicata ai nuovi 
prodotti hardware e 
software. 

Abb. annuo 40 numeri 
lire 80.000 


COMMODORE 

PROFESSIONAL 

La rivista professionale 
per gli utenti di 
Commodore Amiga, 
C128 e C64. 

Abb. annuo 10 numeri 
lire 48.000 
anziché lire 60.000 


STRUtf 

MUSIC 

Il menr 

profe r 

mur 

ra' ter 

r serviste 

i »le ultime 

rafiche. 

ìumeri 

4.000 


NAUTICAL 

QUARTERLY 

Il trimestrale di cultura 
nautica più prezioso e 
raffinato del mondo. 
Emozioni da leggere, 
guardare e conservare. 
Abb. annuo 4 numeri 
lire 70.000 
anziché li/B~ 80000 


OLIVETTI 
PRODEST U 

L’unica rivista 
utenti dei sist' 
Prodest PCI 2 
PC128S. Un? 
all’uso indir 
completa. 

Abb. annuo 6 .eri 
lire 20.000 
anziché lire :4£00 


AUTOMOBILE 
QUARTE^ U.Y 

Il trimestra r più 
prestigioso e raffinato 
del mondo, dedicato 
all’auto, alla sua storia, 
ai suoi miti. 

Abb. annuo 4 numeri 
nella versione lusso, con 
copertina rigida, 
lire 69.500 


PC- 


PC WORLD 
MAGAZINE 

La prima e unica rivista 
italiana per gli utenti di 
personal computer IBM 
Olivetti e compatibili. 

Abb. annuo 11 numeri^, 
lire 44.000 
anziché Iirè5&0(fi!1 
Abb. annuo 11 numeri^ 

PC W.Magazine + PC Floppy 
lire 105.000 
anziché Iirej132-001L 


ulDlll. 

neri^t 

neri^^ 







I E PIU COMODO 


RI TUTTE 
TE JACKSON. 



MHON4ZIONI 


AUTOMAZIONE 

OGGI 

Robotica, controllo 
numerico, CAD/CAM, 
sistemi flessibili... 
problemi e soluzioni per 
la nuova automazione 
industriale. 

Abb. annuo 20 numeri 
lire 78.000 
anziché lirejOOOOtt; 




BIT 

La prima rivista europea, 
la più famosa e 
autorevole in Italia, di 
personal, home, 
business computer, 
software e accessori. 

Abb. annuo 11 numeri 
lire 43.000 

anziché lirÌ3WKNT^ 


(orriputerGrafica 




TRASMISSIONE 
DATI E TELE- 
COMUNICAZIONI 

Il mensile dei sistemi e 
servizi di comunicazione, 
trasmissione dati e 
telematica. In 
collaborazione con Data 
Communications. 

Abb. annuo 11 numeri 
lire 44.000^ 
anziché lìr£5&80flC 


COMPUTER 
GRAFICA & 
APPLICAZIONI 

La rivista della grafica e 
dell’immagine con il 
computer: applicazioni 
pratiche per l’industria, 
le professioni e i servizi. 
Dal CAD/CAM alla 
pubblicità. 

Abb. annuo 6 numeri 
lire 30.000 
anziché lire^B.UQQ 


COMPUSCUOLA 

L’informatica nella 
didattica: problemi 
esperienze e prospettive 
del computer nel mondo 
della scuola. 

Abb. annuo 10 numeri 
lire 32.000 
anziché lire 40.000 



VIDEOTEL 

MAGAZINE 

La rivista dei nuovi 
servizi interattivi 
' telematici: applicazioni, 
fornitori di informazione, 
utilizzo. 

Abb. annuo 6 numeri 
lire 20.000 ^ 
anziché lireÌHHHf” 


SUPER 

COMMODORE 
64 & 128 

La prima rivista con 
cassetta o disco, dei 
programmi dedicati agli 
utenti home computer 
Commodore 64 e 128. 
Abb. annuo 11 numeri 
(con casselta) lire 66.000 
anziché lire ji£5 OCf^ 


FARE 

ELETTRONICA 

La rivista per l’hobbista 
elettronico, il 
radioamatore, il 
riparatore radio-TV 
l’hardware dei personal 
computer. 

Abb. annuo 12 numeri 
lire 39.000 . 
anziché lire„4&:600 






I PRIVILEGI RISERVATI 
AGLI ABBONATI JACKSON 


LE TARIFFE DI ABBONAMENTO 
JACKSON 1987*1988 


gelida monografica Jackson. 

L'agenda a scansione settimanale 
Jackson, oltre a riprendere la prestigiosa linea 
editoriale di Nautical Quarterly e Automobile 
Quarterly, ha carattere monografico e 
nell’edizione '88, è dedicata alla fabbricazione 
di un chip, con splendide immagini a colori. 

[/edizione 1988 sarà inviata sojtgnfo a coloro 
che risulteranno rego/armenfe abbonati al 30 
nove m bre 1987 ad almeno una rivista la cui tariffa 

dj abbonamento sia superiore a lire 30.000 

Naturalmente chi sottoscriverà o rinnoverà 
l’abbonamento dopo tale data, acquisirà il diritto 
a ricevere automaticamente l’edizione '89. 

L’agenda Jackson 1988 sarà posta in 
vendita anche in edicola. 




□ isparmio assicurato. 

Gli abbonati òlle riviste Jackson 
possono contare su un duplice risparmio: una 
tariffa privilegiata, come indicato nella tabella e 
la garanzia del prezzo bloccato per l’intera 
durata del proprio abbonamento. 

conto 20% sui libri Jackson. 

E questo un altro privilegio riservato 
agli abbonati Jackson: lo sconto del 20% su tutti 
i libri del catalogo Jackson, per acquisti effettuati 
fino al 29/2/1988 direttamente dall'editore. 

Dopo tale data, e per tutta la durata 
dell’abbonamento, tale sconto sarà del 10%. 

□ fferte speciali e riservate. 

Nel corso dell'anno, periodicamente, 
saranno inviate alcune offerte speciali, che il 
Gruppo Editoriale Jackson riserverà ai soli 
abbonati. Tali offerte consentiranno l’acquisto di 



RIVISTA 

NUMERI 

ANNUI 

TARIFFE 

ABBONAMENTO 

PROFESSIONALI 

Industria oggi 

10 

L 4 1 .00o\anzichè L feo.000 1 

Elettronica oggi 

20 

L. 79.000 anziché LMOO.OOoJ 

EO News Settimanale 

40 

L 79.500 \ 

Automazione Oggi 

20 

L. 78.000 ahzichè li lOO.OOol 

Trasmissione dati e Telecomun. 

11 

L 44.000 anziché L 55.000 1 

Videotel Magazine 

6 

L 20.000 anziché L 24.000 1 

Informatica Oggi 

11 

L 40.000 anziché L 49.500 I 

Informatica Oggi Settimanale 

40 

L. 80.000 

Computergrafica & Applicazioni 

6 

L 30.000 anziché L. 36.000 | 

PERSONAL 

PC World Magazine 

11 

L. 44.000 anzi^è L 55.000 1 

PC W.Magazine + PC Floppy 

11 

L. 105.000 anziché L 132.000 1 

BIT 

11 

L 43.000 anziché L. 55.000 1 

Supercom. 64 & 128 (cassetta) 

11 

L. 66.000 anziché L 82.500 1 

E HOME 

Noi 128 & 64 (cassetta) 

11 

L 70.000 anziché L 99.000 1 

COMPUTER 

Noi 128 & 64 (disco) 

11 

L 115.000 anziché L 143.000 1 


Commodore Professional 

10 

L. 48.000 anziché L 60.000 I 

Olivetti Prodest User 

6 

L. 20.000 anziché t 24.000 i 

La rivista di Atari 

6 

L. 24.000 anziché Ù 30.0501 

Compuscuola 

10 

L 32.000 anziché L 40.000 | 

HOBBY E 

TEMPO LIBERO 

Fare Elettronica 

12 

L 39.000 ànzichè L. 48.000 1 

Strumenti Musicali 

11 

L 35.000 anziché L 44.000 | 

CULTURA 

E PRESTIGIO 

Nautical Quarterly 

4 

L 70.000/anzichè L 8(0.000 1 

Automobile Quarterly 
(solo nella versione lusso, 
con copertina rigida) 

4 

L. 69 500 



N.B. Per abbonamenti all’estero le tariffe dovranno essere raddoppiate. 
Non è prevista la spedizione via aerea. 


selezioni di libri, grandi opere e software, a 
condizioni particolarissime. 

bbonarsi è facile! 

Utilizzate il modulo di conto corrente 
postale già predisposto e/o la speciale "busta- 
abbonamenti" inseriti in questa rivista. 




I È PIÙ FACILE 


IRMI 

A FORTUNA . 





I FANTASTICI PREMI 
JACKSON 


DEL CONCORSO 


1 - Il Gruppo Editoriale Jackson S.p.A. pro- 
muove un concorso a premi in occasione 
della Campagna Abbonamenti 87/88. 2 - 
Per partecipare è sufficiente sottoscrivere, 
entro il 31.3.1988, un abbonamento a una 
delle 21 riviste Jackson. 3 - Sono previsti 
304 premi da sorteggiare fra tutti gli abbo- 
nati. 4 - 1 ° premio, t un’automobile Volvo 
480 ES (1721 cc.). Gli altri 303 premi consi- 
stono in 3 personal computer professionali 
Honeywell Bull e in 300 telefoni. 5 - Gli ab- 
a più di una rivista avranno diritto, per 
l’estrazione, all'Inserimento del proprio 
nominativo tante volte quante sono le 
testate sottoscritte. 6 - L’estrazione 
dei 304 premi 


in palio avverrà presso la Sede della Jack- 
son entro il 30.5.1988. 7 - L’elenco dei vin- 
citori, ad estrazione avvenuta, sarà pubbli- 
cato su almeno 10 delle riviste Jackson. La 
vincita inoltre, sarà comunicata con lettera 
raccomandata a ciascuno dei sorteggiati. 
8 - I premi verranno messi a disposizione 
degli aventi diritto entro 30 giorni dalla data 
dell’estrazione. 9 - Le spese di immatrico- 
lazione della Volvo 480 ES, nonché l’even- 
tuale controllo di manutenzione extragaran- 
zia per i personal computer Honeywell Bull, 
saranno a carico dei rispettivi vincitori 10 - 
I dipendenti, i familiari, i collaboratori del 
Gruppo Editoriale Jackson sono esclusi dal 
concorso. 


straordinaria Volvo 480 ES. 

Linea morbida, filante, tentatrice: 1721 generosi cc, una 
perfetta tenuta di strada. Neppure l’aria le resiste! 

3 favolosi Personal Computer 
professionali della 
Honeywell Bull. 

I personal computer della 
nuovissima generazione, 
annunciati per la prima 
volta in occasione dello 
SMAU 87. 


300 simpatici telefoni rossi. 

Realizzati appositamente per i vincitori del concorso 
Jackson, superleggeri, a tastiera, dotati della 

di chiamata automatica. 


! 
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{■SUPERGAME PC128 Pmdesti*- 




Q uesto secondo numero di 
Jackson Soft Compilation 
per PC 128 Olivetti Prodest, pre- 
senta uno dei giochi più famosi se 
non il più famoso gioco nella sto- 
ria dei videogame la quale richie- 
de colpo d'occhio, prontezza di 
riflessi, precisione e un pizzico di 
fortuna se possedete tutti i requisi- 
ti allora siete pronti per giocare 
con FROGSI! 

LA STORIA 

Otto ranocchie devono ritornare 
a casa ma senza saperlo si sono 
allontanate di parecchio dal loro 
rifugio. 

La strada presa per il ritorno non 
è delle più felici per le nostre ami- 
che, ma purtroppo il tempo strin- 
ge e se non arrivano a casa in 
tempo una brutta punizione spet- 
ta loro. 

LE SCHERMATE 

In questo eccezionale gioco per 


PC 1 28 Prodest le schermate sono 
tre. 

Nella prima schermata bisogna 
portare ciascuna rana nelle barre 
mobili facendo attenzione a non 
farsi schiacciare dalle macchine e 
da non farsi mangiare dai serpen- 
ti e dalle aquile, per portare la ra- 
na in salvo bisogna metterla pro- 
prio nel centro della barra mobile, 
viceversa essa morirà. 

Nel secondo schermo bisogna fa- 
re attenzione a non cadere nelle 
macchie di petrolio nello stesso 
tempo bisogna mangiare gli in- 
setti sullo schermo per non rima- 
nere senza forze ma non bisogna 
fare gli ingordi, la rana è in salvo 
quando si porta nel fiume a de- 
stra. 

Nel terzo ed ultimo scherno biso- 
gna prendere il treno oppure por- 
tarsi in alto a destra dello 
schermo. 

In questo schermo bisogna fare 
attenzione agli insetti ed evitare le 
piante carnivore. 

Naturalmente per passare da uno 


schermo ad un altro bisogna por- 
tare nello schermo precedente le 
rane in salvo. 

LO SCHERMO 

In tutti i momenti in basso allo 
schermo è visualizzato il punteg- 
gio ed il record, altre indicazioni 
sono: le rane in vita colore blu, le 
rane morte color rosso e le rane 
che passano lo schermo successi- 
vo color verde. 

INPUT DA TASTIERA 

All'inizio del gioco è possibile sce- 
gliere il livello del gioco premere 
0,1 o 2 e se si vuole giocare con la 
tastiera o con il joystick (premere 
C per tastiera e J per joystick). 
Alla fine del gioco se si entra in 
classifica dei migliori bisogna di- 
gitare il nome o la sigla del gioca- 
tore e per fare un'altra partita bi- 
sogna premere il tasto C. 


7 




* SUPERGAME PC128 Prodest * 



COMANDI 

Se si sceglie di giocare con la ta- 
stiera i comandi per muovere una 
rana sono i tasti cursore. 



STRATEGIA 

Per portare più rane possibili in 
salvo e naturalmente per acquisi- 
re più punti in questo gioco è mol- 
to importante non essere precipi- 
tosi, un consiglio utile quando si 
giunge all'ultimo schermo, per sa- 
lire sul treno è consigliabile pren- 
dere una breve rincorsa per non 
finire schiacciati. 

ISTRUZIONI PER IL 
CARICAMENTO 

Appena acceso il computer pre- 
mere il tasto 1 (per il BASIC). 
Digitare DEVICE "cass:" premere 
ENTER, digitatare RUN "" preme- 
re ENTER e premere il play sul re- 
gistratore. 

Quando il caricamento è finito è 
importante premere STOP sul re- 
gistratore per non rovinare la cas- 
setta. 






Il Gruppo 
Editoriale Jackson, 
proprietario esclusivo 
dei diritti per 
l'Italia di questo gioco, invita i lettori 
che ne fossero a conoscenza, a 
segnalare l'esistenza di eventuali altre 
pubblicazioni contenenti questo stesso 
gioco, alla redazione della nostra 
rivista. 

Le prime tre segnalazioni saranno 
convenientemente compensate. 


&SUPERGAME PC128 Prodest# 





GUIDA AL CARICAMENTO 
DEI PROGRAMMI 


I programmi presentati sono caricabili sia 
battendoli direttamente da tastiera, che 
utilizzando la cassetta allegata. 

Per il caricamento del nastro, battere il 
comando "LOAD" ed attendere il 
messaggio OK. 

Battere il comando RUN per lanciare il 


programma. Salvo diversa indicazione, i 
programmi girano indifferentemente nei 
due linguaggi Basic disponibili (opzioni 
1/2 del menu iniziale). 

Per evitare eccessiva usura del nastro 
premere il tasto stop del registratore al 
termine di ogni caricamento. 
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oooooooooo 


PROGRAMMA, 

oooo ooaooooooooc 



BELLA ITALIA 


a serie di numeri inserita nelle istruzioni DATA di 
— questo programma, contiene le coordinate per 
disegnare i contorni dell'Italia. 

Così com'è il programma è più che altro dimostrati- 
vo, tuttavia la parte principale che disegna l'Italia 
può essere inserita in altri programmi di tipo didatti- 
co, di quiz, ecc. 

Il disegno dell'Italia viene realizzato in tre colori, per 
eliminare questo effetto basta togliere dal program- 
ma le linee 180 e 190 e stabilire il colore assegnan- 
do il codice corrispondente alla variabile C (linea 
140). 

Il punto di inizio del disegno, invece, dipende dai 
valori assegnti alle variabili X e Y (linee 1 10 e 120). 
Infine, cambiando i codici contenuti nelle istruzioni 
DATA in fondo al programma, è possibile disegna- 
re sullo schermo un'altra nazione o dei disegni di 
diverso genere, i codici dei punti da disegnare su 
una linea possono essere compresi tra 1 e 319 
mentre lo 0 indica al programma che deve incre- 
mentare il disegno di una linea. 


10 ' 

.29 ' * * 

39 '* ITALIA * 

49 '* * 

50 ' 

69 ' 

70 S C R E È N 7 , 0.0 
80 CLS « 

90 F0R A c 0 T 0 13 

100 BEEP : NEXT A 

110 X*80 

120 V *30 

130 REST0RE 250 

140 K=0.C*2 

150 READ D:K*K+1 

160 IF 1**999 THEN 230 

170 IF 1**0 THEN V * V + 1 GOTO 220 

130 IF K >220 THEN C = 7 

190 IF K > 3 7 5 THEN C = 1 

£00 D=iD-52 

210 PSET <X+D,V)/C 

220 •GOTO 150 

230 COLOR 15 

240 ENI> 

250 DATA 94,0,38.89,91.92,93,0,86,87,88. 
90 .93,0 , 82, 83, 85,94.0, 31, 33 .84.95. 8 
260 DATA 79, 8 2 , 9& , 97, 98, 99, 8 . 78.80, 81, 10 
0 , 101, 102, 103, 0,64, 65, 72, 78, 134 105.0 
270 DATA 64, 65. 71, 73, 74 . 7 r . 76, 77 7 *8 , 1 03. 
0 , 6 4 , 6-6 , 7 1 . 1 0 3 , 1 0 4 , Ù 

230 DATA 63,67.68,70.105,0,59.61,62,68,7 
0 , 1 0 4 , 0 . 5 4 , 5 5 , 5 6 , 5 7 , 5 8 . 6 O . 6 9 , 1 0 4 . 0 


290 DATA 53, 101 , 104, 0, 54 . 100, 101. . IO?*, 103 
,10 4 , 1 0 5 , 0 ,55, .1 0 0 , 1 01,106,107.0 
300 T . m t 55,99,107,0.5 6 9 5 . 9 6 . 9 7.98.0,5 ir 
94,0.54.94.0 

310 DATA 52,53 , 4 , A ,52.95,8,5 3 , 9 5 0 . 5 ? . 9 

6 . 0 . 5 4 . 9 4 . 95 . 9 6 , 8 , 5 3 ,-9‘4 ri 

320 DATA 53,94,8*53, *4 , 8.53,67,68. 69 , 94 , 
0,53,65,66,70,71,94,0 

330 DATA 54 . 55, 64 . 72 . 73 . 95, 0 56.57,58.59 

, 63 , 73 , 74 , 95 , 0 , 59 , 62 . 75 . 76 . 96 . 0 

340 DATA 59.62,77 97, 0,58. 59, 68, 61 >78, 98 

,0.78,99,100.0,79,101,8,79,102.0 

350 DATA 79,103,0,79,104,105,0.80.105,0, 

80.185.0. 81.106.0.31.106.0.75.81.107.0 
360 DATA 81,82,107,0,83,107,0.77,78,79,8 

3.187.8.79.84.108.0. 76.85.108.0 

370 DATA 8 6 ,189.0,8 6 , 37', 8 8 , 11 0 , 8 , 8 3 ,85. 8 
9 . Ili ,-0 , 98*, 112 , 8 , 90, 113 , 114 , 8 
380 DATA 91,92,115,0,93,116,117,0,94.118 
. 119, 122, 123, 1 2 4 , 125,, 0 , 94, 128, 121, 126, 0 
390 DATA 95, 125, 0, 96, 124, 0,97, 124, 8, 98, 9 

9.. 125. 126. 0/69, 10.0 .102, 103, 127 ,128, 129 
400 DATA 0, 62, 69, 101, 104, 105,106, 107', 130 
,0,61,67,60,70,71,108,131,132,133,0 

410 D AJ A 66, 72, 108, 134 , 135*, 0, 60 , 65 . 71, 10 

9.136.0 

420 DATA 60,61,62,63,64,12,109,110,111,1 

37.138.8.60.72.109.112.139.140.0 

438 DATA 60,61,72,107,113,114,115,141,14 

2.. 0. 62. 73. 112. 113. 116. 134. 135. 143.8 

440 RATA 62,73-, 118, 1A7, 133,136,144,0,62, 

72, 117, 132, 137, 138; 139, 140, 145, 0 

450 DATA 62, 7 2, 117. 132142. 146, 0,63, 71,1 

17.118.131.143.147.0 

460 DATA 62,72, 119., 122,131, 143,146, 0,62, 
72, 120 . 121 , 123, 130, 14 3 . 14 4, 146_0 


470 DATA 62,72,123,124,131,145,146,8,63, 
72,124, 130 .0.63,72, 124 , 130, 0 


480 

DATA 

62.. 

63/72, 

125, 

130 , 8 , 

6 2 7 

1..12 

r 

13 

1 . 132,1-33 

. 0 . 

61, 71., 

126, 

13 4., 8 





498 

DATA , 

6 1 , 

71/126 

, 135 

.0,61 , 

71/ 1 

27/1 

35 

, 0 

.59, 

6 1 , 6 7 

, 68 

, 69,7 1 

, 127 

, 135 / 8 





500 

DATA 

62 

66.70, 

127 . 

135, O 

61/6 

3 / 6 6 

/ 1 

27 

, 135 

, 8 , 6 3 

, 64 

. 65, 12 

8/ 13 

3, 134, 

135, 

0 



510 

DATA 

128 

.132 . 8 

. 128 

, 1 3 1 8 

, 1 25 

. 126 

1 

27 

j 131 

, 0, 11 

8 . 1 

26 , 131 

/ 0 , 1 1 6 . 1 2 6 

. 1 31 

, 0 



5 20 

DATA 

126 

/ t 30 , 1 

3 .1 0 

. 1 1 8 , .1 

25.1 

29 . 0 

i 

-• 

e. c. 

. 124 

. 125, 

128 

. 8 







538 

DATA 

1 0? 

, 1 J. ? , 1 

20 . 1 

21,1 22 

. 1 24 

. 1 . 2 8 

, 0 

. 9 

8 , 101, 182 

. 10 

•: . 1 1 4 . 

1 15 . 

116.11 

8.11 

a 



.548 

DATA 

1 2 ? 

. 124 . 1 

2 x . 0 

92 9 7 

. 99 . 

1 0 0 . 

10 

4 , 

105 . 

109 . 1 

10 . 

11 1.1 1 

2 1 1 

3.121. 

124 . 




550 

data 

1 2 6 

. 127 . 0 

94 . 

9 r. . J 0 8 

. 107 

. 1 0 8 

, 1 

20 

. 0 > 9 

6 , 1 2 0 

0 

96. 119 

.0.9 

7.11 9 . 

0 




5'8 8 

DATA 

9.3 . 

9 9 1 0 ij 

ì 0 1 

. ! 1 9 . 0 

, 1 0 2 

1 9 ' 

. 1 

13 

. 0 . 1 

84 11 

8 , A 

10 5. 1 

A 6 . 1 

18.0 





570 

DATA 

10? 

. 1 0 8 1 

;? 0 0 

J O 9 . \ 

1 0 ! 

: .1 , ; • 

.1 ■ 

;} 

2 1 . 8 

, 1 :l 3 . 

* 2 0 

. 9 , 1 1 4 

< ! 9 

• 0 





5 8 8 

DATA 

q ] 

! t 4 . 1 1 

^ , 1 1 

0 , 11*9 

0 . ^ 2 

1 1 z 

1 

i 7 

,8.9 

qq 










IO 






CORSO PRATICO DI CODICE 
MORSE E TELEGRAFIA 

di A. Pelligrini coricare il programmo con il BASIC 2 del PC 128 


F ino dagli albori della civiltà si è sentito il biso- 
gno comunicare rapidamente ed a grande di- 
stanza, ma solo oggi si può dire che questo proble- 
ma sia stato completamente risolto dai moderni 
mezzi di counicazione. Questi tuttavia sono una re- 
cente conquista per il genere umano, che solo due- 
cento anni fa era ancora alla ricerca di soluzioni 
valide per risolvere questo problema. A quel tempo 
infatti i sistemi di comunicazione erano esclusiva- 
mente di tipo ottico e permettavano di coprire solo 
brevi distanze. Con l'invenzione della Pila di Ales- 
sandro Volta, divenne possibile sfruttare la velocità 
della corrente elettrica che copre 300.000 Km/sec. Il 
primo che riuscì ad utilizzarla fu l'americano Sa- 
muele Morse che costruì il primo telegrafo elettrico 
capace di trasmettere e ricevere l'alfabeto da lui 
stesso preparato. Questo apparecchio scriveva su 
di una striscia di carta una serie di punti e di linee, 
alle quali veniva dato un valore convenzionale. 
Questo apparato negli anni venne via via perfezio- 
nato fino a quando nel 1896, Guglielmo Marconi 
riuscì ad eliminare la necessità dei collegamenti 
elettrici fra due stazioni telegrafiche. Nacque così la 
radiotelegrafia. Con la grossa novità della ricezio- 
ne audio. L'alfebeto Morse non venne più ricevuto 
tramite una striscia di carta, ma sotto forma di suoni 
più o meno prolungati. Questo sistema di comuni- 
cazione, per quanto poco agevole, è tuttora impie- 
gato in quanto consente di coprire grandi distanze 
anche con radio di ridotta potenza. Inoltre, volendo 
sostenere l'esame per diventare radioamatore, è 
necessario essere in grado di trasmettere e ricevere 
segnali Morse. 

Molti, volendo prepararsi per questa prova, si tro- 
vano in grave difficoltà poiché inizialmente difficile 
mantenere della giusta lunghezza sia la durata del 
punto sia quella della linea, ma soprattutto l'inter- 
vallo temporale che separa due caratteri, due pa- 
role o un punto da una linea. 

Il programma che qui presentiamo vuole aiutarvi 
nel risolvere questo genere di problema. Infatti vi 
permette di ascoltare la trasmissione corretta di testi 
di varia lunghezza. Per trarre i maggiori benefici da 
questo software è bene che seguiate le indicazioni 
nel seguito riportate. 


Anzitutto è importante non utilizzare per la ricerca la 
sequenza di punti e linee che il vostro PCI 28 stam- 
perà sullo schermo, in quanto dovrete allenarvi a 
riconoscerla ad "orecchio". Inoltre la stampa dei 
punti e delle linee non è contemporanea alla loro 
trasmissione acustica e ciò può essere fonte di di- 
sturbo. Abituatevi invece a controllare l'intero mes- 
saggio che avete ricevuto ad udito con quanto vie- 
ne stampato su video. Ciò vi sarà utile per familia- 
rizzare anche con messaggi scritti in Morse. 

Non preoccupatevi inizialmente di ricevere lunghi 
messaggi. Insistete piuttosto sulla ricerzione di sin- 
goli caratteri. Solo quando non incontrerete più al- 
cuna difficoltà passate alla ricezione di parole. Tut- 
tavia, prima di utilizzare quelle che il calcolatore vi 
propone, esercitatevi a ricevere solo delle sillabe 
insistendo sulle sequenze di lettere che vi risultano 
ostiche. Per questo esercizio utilizzate l'opzione che 
permette di tradurre in Morse un testo qualsiasi (se 
studiate insieme ad un amico fate in modo che sia 
lui a decidere cosa trasmettervi). 

Una volta acquisita dimestichezza nel ricevere ad 
udito anche le frasi che il calcolatore vi propone, vi 
consigliamo per terminare la vostra preparazione di 
munirvi di un tasto telegrafico corredato di segnala- 
tore acustico e di provare a trasmettere delle intere 
parole. Scoprirete, a parte qualche difficoltà inizia- 
le, che l'avere nelle orecchie la "musica" che con- 
tradistingue la codifica dei vari caratteri vi aiuterà 
notevolmente. 

Buon lavoro! 



O O OOCOOOOOOOOOC 

PROGRAMMA 

OOOOOOOOOOOOCOOQ 



NOTE SULLA TRASMISSIONE TELEGRAFICA 

Per fare il punto, bisogna tenere abbassato il 
tasto telegrafico per un attimo, mentre per fare la 
linea, occorre tenerlo abbassato per un tempo 
tre volte maggiore. Lo spazio fra i segnali di una 
stessa lettera deve essere brevissimo e cioè lun- 
go quanto un punto. Lo spazio fra due lettere 
deve essere lungo quanto una linea mentre lo 
spazio fra due parole deve essere di durata pari 
a cinque volte quella del punto. 

L'esatta conoscenza degli intervalli è necessaria 
per poter distinguere una lettera dall'altra e una 
parola dall'altra. 


E . 

T- 

1 .. 

M - 

S ... 

O — 

H .... 

W .- 

A .- 

N -. 

u ... 

D -.. 

V .... 

B -... 

R 

K 

L .... 

Y .... 

P .-. 

X-..- 

F 

Q 

J .— 

C-.-. 

G -. 

Z .... 

1 

6-.... 

2 ..... 

7 ..... 

3 ..... 

8 —.. 

4 ..... 

9 

5 

0 - 

, 

(o) 

! 


// 


1 DIMCf<128 v, Stfi 128) FOR T =0TO127 : Cf fi I > = 
" " : NEXTI : Cf fifi5)* ,, L12P0PL36POL.36P" :Stfifi5) 

* M . - " 7 A 

2 6 0 S U B 1 0 0 0 : 8 0 S U B 1 i 0 1 fife fi fi ) = " L 3 fi P 0 L- 1 2 P P 

0PPQPP0L36P St fi fifi . " 7 B 

3 C f fi fi 7 ) = " 1 3 fi P 0 L 1 2 P P 0 P L 3 fi P 0 L 1 ? P p 0 L 3 fi P " S 

$<fi 7 > = "'C. 

4 C f ( fi 8 ) * " L 3 6 P 0 L 1 2 P P n p D n L 3 fi P " : S f fi fi 8 ) = ” - . 

. " 7 P 

5 Cf < 6 9 > = " L12P0L36P " : St <■ 6? > = " . " 7 F 

fi C $ < 7 0 ) = " L 1 2 P 0 P P 0 p L 3 fi P 0 L j 2 P P 0 1 3 fi P " ? t fi 7 

0 > = . '* 7 F 

7 Cf(71)=" L3fiPQL12Pl 36D0L12PD01. 36P" ' S t fi 7 

1 ) = " - - . " 7 0 

8 C f fi 7 2 ) = " 1 1 2 P 0 P D 0 P P 0 P P 0 L 3 fi P " c . I - f 7 2 ^ . . 

. . M 7 H 

9 C f fi 7 3 > = " L 1 2 P 0 P p n L 3 A p " 3 r < 7 3 > = " , . " ' I 

10 C t fi 7 6 > « " L 1 2 P 0 P L 3 6 P 0 LI 2 P P O p p n l 3 6 P " ■ S t { 
76>* M .-.. M7 L 

11 C f < 7 7 ) * " L 3 6 P 0 L 1 2 P L 3 6 P 0 L 3 fi P " 3 t <7 7 v < = " - 

- " 'fi 


12 C*<78>*"L36P0L12PD0l. 36P":S*'78>*"-. " 
'N 

13 C $ fi 7 9 > = " L 3 fi P O !- 1 2 P l. 8 fi P 0 L 1 2 P !. 3 fi P 0 1. 3 fi P " 

S f fi 7 9 > = " " 1 2 3 4 5 * 7 8 9 10 11 0 

14 e t fi 8 0 > = " L 1 2 P 0 P l. 3 fi P n L 1 ? P i 3 fi P 0 L 1 2 P P Q l 3 fi 

P " : S f fi 8 0 > = " . - - . " 7 P 

15 C t fi 8 1 > = " 1 3 6 P Q L 1 2 P L 3 6 P 0 L :l 2 P P 0 P L 3 fi P 0 1. 3 fi 
P" : St (81) = " -- , - '"0 

16 C $ fi 8 2 > = " 1. 1 2 P 0 P L 3 6 P 0 L 1 2 P P 0 L 3 fi p » • s t fi ft ? :• 

= " . - . " 7 R 

17 C t fi 8 3 ) = " L 1. 2 P O P P n P p n L 3 6 P " S t fi 8 3 ) = " . . . 

" 7 S 

18 C t < 8 4 > = " L 3 6 P 0 L. 3 6 P " S * fi 8 4 > = " - " 7 T 

19 C f fi 8 5 > = " L. 1 2 P 0 P P n p L 3 6 P n t 3 6 P " .* S t fi 8 * > - " . 

. - " 7 LI 

2 0 C t fi 8 6 > = " L 1 2 P 0 P P 0 P p n P | 3 6 P O L 3 6 P " : S f fi 8 fi • 

- » _ n / li 

21 C * ' 9 0 ) = " l 3 6 T> 0 L 1 ? P I 3 fi P n 1. 1 P p n P p n I 3 6 P " 
$$<90) = "- -., " ' Z 

2 2 C $ < 8 9 > » " l. 3 6 P n l . 1 2 P P 0 P ! 3 6 P 0 L 1 2 P L 3 fi P n L 3 fi 
P " : s % <, 8 9 = " - . - - " •' V 

2 3 C % < 7 4 '■ = " L 1 ? P n P I 3 fi p n L 1 ? P !.. 3 fi P n i„ 1 . ? p I. 3 fi p n 
L 3 fi P " : Si: (74) = " . - " ' J 

2 4 C t (. 7 5 > = " l. 3 fi P 0 !.. t ? p p fi P ! 3 fi. P 0 L 3 fi. P " ■ 3 1 ( ? 5 ■ 

— li _ _ il / y' 

25 C % < 8 8 > = " L 3 6 P 0 L 1 2 P P D p p n P |. 3 fi P 0 1. 3 fi P " : S fi 

8 8 > = x 

2 fi C*(87>*"L12P0P L 3 fi p n i :1 2 P L 3 fi P013 fi P " : S t fi 
8 7 > - " . - - U 'U 

2 7 FQR T * fi 5 T 0 9 0 : S $ ( T + 3 2 > a S $ fi T ì : N E X T T 

31 fi t fi 9 7 ; . " L 1 2 P 0 p | 3 fi P 0 L 3 fi p " P . • 

32 fi f < 9 3 > - " L 3 fi P 0 L 1 2 P P 0 p p n P p n l„ :3 fi p ° / p 

3 3 C $ fi 9 9 > * " L 3 fi P 0 L 1 2 P P 0 p l 3 fi P 0 L 1 2 P P 0 !.. 3 fi P " 

7 C - . 

3 4 fi $ fi 1 0 0 ) * " L 3 fi P 0 L 1 2 P P 0 P P 0 L 3 6 P " y P 

35 Ct < 101 )a"Ll 2P0L36P" : 'E 

3fi fi t fi 1 0 2 > = " L 1 2 P 0 P p 0 P L 3 fi p 0 L 1 2 P P O L 3 fi P " : 7 F 

3 7 fi t fi 1 0 3 ) = " L 3 6 P 0 L 1 2 P L 3 fi P 0 !. 1 2 P P 0 L 3 6 P " : 7 8 

38 fiSfil04>s"L12P0PP0PPOPPOL.3fiP" : 7 H 

39 Ct fil05> = ,, L12P0PpnL3fiP" ; ' I 

40 etfi 1 08) = ” L12P0PI. 3fiPOL12PP0PP0L3fiP" 7 L. 

41 etfil09>="L3fiPOL12PL3fiPOL3fiP" : 7 M 

42 Ctfill0)="L3«D0L12PP0L3fiP H : 7 N 

43 Cffilll>* , 'L3fiPQLl2Pl3fiP0ll2Pl3fiPQL3fiP M 

: 7 0 

44 Cf fi 112) = " L12POPL3fiP0Ll2PL36PnL12PP0L3 
fi P" : 'P 

45 etfill3>=” L3fiP0L12PL3fiP0L12PP0L3fiP0L3fi 
P M : 7 Q - - . - 

4 fi Ctfill4) = "L12P0PL3fiPnL12PP0L3fiP" : 7 R „ - 

47 Ctfill?> = "L12P0PPOPI>ni.3fiP" ' S 

48 Cf fillfi) = ,, L3fiPnL.3fiP ,, : 7 T 

49 effill7)="L12P0PPOPL3fiP0L36P" : 7 U 

58 etfill8)= M L12P0PPnppnpL3fiPnL3fiP" • V 

51 fiffi 122) = H L3fiP0L 12PL36P OLI 2PP0PpnL3fiP H 
: 7 Z - - . . 

52 etfil21) s "L3fiPOL12PP0PL3fiP0L12PL3fiI>0L3 

fiP" : 7 -- V 

5 3 fit fi 10fi ) = u L12P0PL3fiPOL 1 2PL 3fi POI 1 2PL 3 6P 
0L36P " : 7 . J 

54 Ctfil07> = M l.3fiPnL12PP0PL3fiP0L3fiP u 7 K 

55 fi f fi 1 2 0 ) = " L 3 fi P 0 !.. 1 2 P P 0 P P 0 P l 3 fi P 0L 3 fi P " : 7 v 
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5 6 Cf '119) = "U 2P0PL.36P0L1 2PL36P0L36P " " W 

57 Ct<32>* ,, L12PL36P ,, : S*<32> = " " /M " SPA? 
IO 

58 Cf ( 46>*"L12B0PI>OL3 6PL12DOPPOL36PL12I>O 

PP0L36P" : S* < 46> = " p |J (J t n 

59 C t < 5 9 > = " L 1 2 P 0 P p L ? 6 P L 1 2 P 0 p P 1 . ? 6 p l 1 ? P n P P 
L36P"SS(59>*". . . 

60 Cf (53) = "L36I>0L12PL36P0L 12PL36P0L12PP0 

PPGPPGL36P " St(58>=" . . u ' " " 

61 CS(44)* M L12P0PL36P0L12PD0PL36D0L12Pr , 0 
PL36P0L36P" St(44>=". - , - , - " ' " . " 

6 2 Ct < 49) = "L12POPL36POL12PL36P0L.12PL 36 PO 

L12PL3 6I'0L 36P" : SS(49) = " . " ' " 1 " 

63 CS ( 50 > = "L12POPP0PL.36POL12PL?6POL12PL3 
6 P OL 3 6 P " : S f ( 50 > * M . . " ' " 2 " 

64 Ct<5 : l> = "L12POPPnppcPL36BOL12PL36B0L36 
P" : Sf <51)*"-. . . - - " ' " 3 " 

6 5 • C t ( 5 2 > * " L 1 2 P 0 P D 0 P P 0 P p n FI 3 £ P 0 L 3 6 P " S $ ( 
52 - M/ “4 " 

66 Cf<53) a "L12POPP0PP0PBOPPOL36P"St(53) 


67 CS(48> a "L36P0L36P M : Sf (48)»" - "'"0" 

6 8 CS(54)*"L36P0L12PP0PPQPP0PP0L36P" -9.tr 
54)="-.... " ' " 6 " 

69 CS(55>*"L36P0L12PL36BOL12PPQPPOPPOL36 

P" ■ Sf (55>«“ . . " ' "7" 

70 Ct(56)*"L36P0L12PL36PGL12PL3GP0L12PP0 

PP0L36P" S t ( 56 ) = " . . ■ ' "8" 

71 Ct(57> a "L36P0L12PL36P0L12PL36POL12PL3 

6P0L 1 2PP0L 36P " : St(57) = " . " ' "9 " 

72 Ct<63)*"L12POPPnPL36P0L12PL36POL12PP0 
PP0L36P" : SS( 63 )*" . . --. . M ' "?" 

73 Ct<33> s "L36PQL12PL36POL12PP0PPOPL36PO 

L12PL36-D0L36P" : S$ (33)*" - . -- " ' " ‘ " 

74 Cf (40>= M L36POL12PPOPL36P0L12PL36POL12 

PP0PL36P0L-36P" :Sf(40) a "-. - - , - o V 

75 Ct(41>*"L36D0L12PP0PL36P0L12PL36PnL12 
PP0PL36D0L36P" : Sf(41) a Sf(40)'" % ( 0 >" 

77 C*<45)«"L36POL12PPOP&0PP0PP0PL36POL36 
P" :Sf (43>* H -. ..." 

78 Ct<47)*"L36D0L12PP0PPOPL36PQL12PP0L36 
P" : Si<47>«" 

79 Ct(34)*"L12B0PL36P0L12PP0PP0PL36P0L12 
PP0L36P" ^8t<34>* " r-- . . "'VIRGOLETTE " 

80 Cf (39) a "L12POPL36POL12PL36POL12PL36PO 

L12PL36P0L12PP0L36P"'. St<39>-" . . " ' - ' 

99 GOTO 198 : ' 

180 CLS SCPEEN6 , 1 . 1 : L0CATE1, 5 INPUT "TES 
TO"; PS 

130 POR jaiTOLENCPt) :Q = ASC(MIPf(Pt, J,l)> : 
PLAYCt(Q):PRINTS*(Q>; : NEXT.T 
135 L0CATE1, 2 INPUT-DI NUOVO CS/N]";S$:I 
FSt="S ,, THEN100ELSE220 

140 F0RJ a lTOLEN(Pf>:PRINTSS(ASC(MIPt(Pf. 
J 1>)> ; : NEXTJ PRINT 

198 CLS ■ L0CATE19, 4 : PRINT’M A C K S 0 N" 

199 L0CATE15, 2 ' PRINT" IMPARIAMO LA TELEGR 
AFIA" : L0CATE16, 3 : PRINT "CON LE COMPILAT 
I ONS " 

200 SCREEN0 . 12.. 12 : LINE (38 . 1 50 > - ( 3 0 0 ) : L I 
UEC30. 30) - < 0 , 80'* : L I N E ( 3 0 , 30) -(60 80) 

210 LINE(0, 150) -(319, 150) : BOX (60 , 150) -(1 
4 0 , 1 1 0 ) • L I N E < 3 0 , 1 4 0 ) - < 6 0 . 1 4 0 > 

211 BOXC200, 150) -(250, 140> : LINE^ 200, 140) 
-(205, 135 > LINE ( 250, 140)-(245, 135) 

212 LI NE (205, 135) -(245, 135) : LINE (140, 145 

> - (200, 145) : L INE( 24 7, 137) - (280, 137) 

213 LI NE (280, 137) -(280, 135) : LINE (275, 135 

> - (285 , 135) • BOX (85, 132) -<115, 115) 

214 L I NE (100, 130) -( 88, 118 > : LOCA TE 5 . 23 , 0 
PRINT" PREMI IJN TASTO PER CONTINUARE" 

215 IF""=INKEVfTHEN CQ=PNP:G0TQ215 

220 CLS : SCREEN7, 0, 0 : L0CATE5 , 5 PRINT"<1> 


TRAPUZIONE IN MORSE" 

230 L0CATE9, 6 PRINT"PI IJN BREVE TESTO" 
240 L 0 C A T f 5 , 8 PP!NT"<2> TRAPUCI ALCUNI C 
ARATTFRI " 

250 L 0 C A T E 9 , 9 PPINT"PA MORSE IN ITALIANA 

260 L0CATE5 ,11 : PR I NT " <3> TRAPUCI ALCUNE 
PAROLE" 

270 L0CATE9 . 12 : PRINT" P A MORSE IN ITALIAN 
0" 

280 L0CATE5, 14 PPTNT»<4> TRAPUCI UN BPFU 
E TESTO" 

2 q 0 LOCATE*. 15 PPTNT"PA MORSE IN ITALIAN 
0 " 

3 00 LO TATE 5, 17 PRINT" <5> TAVOLA P T PECO P 
I F I C A " 

310 L0CATE9, 18 PRTNT"PH! ^hPhTTEPI M 0 R S F 

320 LOC ATE5 , 22 INPUT " SCELTA St • IF ASC'S 

t ) >53 OR ASC(SS) <4* THEN220 

330 IF St=" 1"THEN 100 

340 IF St="2"THEN 400 

350 IF St="3 M THEN 500 

355 I F S t = " 4 " T H E N 600 

360 IF s t*= " 5 " T H E N 780ELSE220 

400 A = I N T ( R N I« T 1 2 7 ) : T F L F N < C t < A ) '• = 0 OR A = 

32THEN400 

418 CLS : SCPEEN8, 2 . 2 L0CATE1, 5 : Pt = CHRt( A'* 
420 FOR.T = lTOLEN(Pt'‘ 0 = ASC < MÌ P t ( P t , J . \ \ 
PLAYCt '0) ; PRINTSt(O) , NEXTJ 

430 L0CATE1, 2 : INPUT"CHE CARATTERE E ' " S * 
IFSt=CHRt<A>THEN460 

431 IF A>90 THEN A = A -32 

432 IFASC(St) >90THENSf a CHRt<ASC<Sf - 3?) 

433 IFSt=CHRt(A)THEN460 

440 L0CATE1, 18 ■ PRINT "HAI SBAGL T ATO 1 " : PP I 
NT " L A RISPOSTA ESATTA E' ";CHRt(A> 

450 PRINT : INPUT "PI NUOVO CS/N)";St TF SS 
»"S" THEN409ELSE220 

460 LQCATE1, 10: PPINT"HAI PETTO BENE ‘"8 
OTO450 

508 A» IliT (RNPT100 > 

510 CLS SCPEEN0,, 11, 11 : LPC ATEI , 5 Pt = Pt (A) 
528 FORJ«lTOLEN*(Pt) :Q = ASC(MIPt(Pt, J,l>) : 
PLAYCt (Q) : PRINTSt(Q) ; : NEXTJ 
530 L0CATE1, 2 : INPUT-CHE PAROLA E'";St:IF 
St=P t ( A ) THEN560 

540 L0CATE1, 10 : PPINT"HAI SB AGL I ATO 1 " ' PP I 
N T " L A RISPOSTA ESATTA E' ";Pt(A> 

550 PRINT: INPUT M PI NUOOO C5/N]";SliF 8t 
*"S" THEN500ELSE220 

560 L0CATE1, 10 PRINT "HAI PETTO BENE '"G 
OTO550 

600 A= I NT ( RNPtl0 ) 

610 CLS : SCREEN0, 9 , 9 : LOC ATEI , 5 PMFt ( A) 

6 20 FORJ = lTOLEN<Pt) G = ASC (MI Pf( PS, *1,1) ) : 
PLAYCt(Q) PPINTSt(Q) ; - NEXTJ 
630 L0CATE1,'2 INPUT-piflMP QUELLO CHE HAI 
CAPITO» • St- IFSS*£t(A>TflEN660 
640 L0CATE1, 19 PRINT "HAI SB AGL I ATO ! " PR I 
N T " L A RISPOSTA ESATTA E' M ;Ft(A) 

650 PRINT : INPUr H PI NUOVO [<-S / N 3 " > S t : I F 8t 
*"S" THEN600ELSE220 

660 L0CATE1, 19 PRINT"HA*I PETTO BENE !":G 
OTO650 

700 CLS : SCREEN0 , 15,15 

701 FORI=65TO90STEP4 : LOC ATEO, < I -65)/4 : PR 

INTCHRt ( I ) " " , St ( I ) , L0CATE9 , ( I -85 ) /4 : 

PPINTCHPt( 1+1); » ";St(I+l); ^ 

705 I F I +2<91THEN LOC ATE18 , ( I -65 ) /4 : PR I NT 

CHRt(I+2>; " ";St<I*2> ; : LOCATE 27 ,( I -65 ) / 

4 : PRINTCHRt< 1 + 3) ; " ";Sf(I+3) 

706 AA = iNT< < I -65)/4> : NEXT 

787 L0CATE18, AA PRINT-0"; " ",St<48);:L0 

CATE27, AA : PRINT"!" ; " " ; Sf ( 49 ) : A A*AA + 1 - 
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710 

EOP 1=50 T05 7 STEP4 : PPINTCHRf < I > ; 

■ 

Sf < I ) ; : L 0CATE9, AA PPINTCHRf < IM ) ; " 
Sic I+l) ; 

« . 

> 

711 

LOCA TEI 8 . flA»PRINTCHR*U+2> ; " 

+ 2 > : 

L0CATE2 7, AA : AA = AA,+ 1 • PPINTCHRf < I«-3> ; " 

" ; 

Sf C I ♦ 3 ) NE XT 


712 

PPINT" ; Sf (63) ; : L OC ATEI 3, A A 

PR 

T N T " 

; " ; " " ; S f ( 5 9 ) ; 


713 

A A + 1 

L0CATE26, A A PRINT" " ; " " ; Sf <58) : 

AA* 

714 

PRINT" ✓ " ; " " ; Sf (47) ; : LOCA TEI 3, A A 

PR 

I NT " 

. " " " ; Sf (46) ; 


715 

L0CATE26, AA PRINT" - » " " ;Sf (45) : 

A A* 

AA + l 
716 

PRINT","; " " ; S f ( 4 4 ) ; :L0CATE13,AA 

: PR 

INT" 

1 " ; " " ; S f < 3 3 > : 


717 

L0CATE26 , A A PR I NTCHRf ( 34 > ; " “;Sf(34 

> : AA 

= A A ♦ 1 •* 


720 

PRINT" ( o ) " , Sf C 40 > 


740 

PRINT PRINT"PREMI UN TASTO PER CONTI 

NUARE" 


790 

I F " " = INKEVfTHEN CQ=RND : GOTP790 


799 

GOTO 22 U 


1000 

DIMPf (101) : Pf C0)*"TEMI " 


1001 

P f ( 1 ) » " 0 S S 0 " 


1002 

Pf (2>*“METTI " 


1003 

Pf C3>*"MIST0" 


1004 

Pf(4>="ESSI" 


1005 

.Pf (5>="TEM0 H 


1006 

Pf (6>="TEM0" 


1007 

Pf '7>*"MQSCHE" 


10 08 

Pf (8>="TESTE" 


1009 

Pf (9)="N0TTE" 


1010 

Pf (10>»"TANE M . 


1011 

Pf (11>*"8CHIETTA" 


1012 

Pf(12>=" STAMANE" 


1013 

Pf (13)="S0MMESSSA" 


1014 

Pf (^«"TOSSICHE" 


1015 

Pf(15>=" TENENTE" 


1016 

Pf <16>»" ANTESTANTE" 


1017 

Pf(17)="NIENTEMEN0" 


1018 

Pf <18)-"N0NNA" 


1019 

Pf <19)* M ANIMA" 


1020 

Pf <20>® "MOMENTO" 


1021 

Pf <21)*"SMUSSAT0" 


1022 

Pf (22)*'iADD0SS0" 


1023 

Pf(23>*" DEMENTE" 


1024 

Pf <24)« M DISCHIUS0" 


1025 

Pf <25)=" ANDIAMO" 


1026 

Pf (26)*" VASTO" 


1027 

Pf <£7->»"VEDUTA" 


1028 

Pf (28) = " VI VANDA" 


1029 

Pf (29>*"BABBE0" 


1030 

Pf<30>=" BUSSE" 


1031 

Pf <31>="DEBB0" 


1032 

Pf <32>*"BABBUIN0" 


1033 

Pf(33)=" NABABBO" 


1034 

Pf(34'*" MAMMA" 


1035 

Pf (35)="EVAS0" 


1036 

Pf(3 6 >*" TRAFORARE" 


1037 

Pf ( 37^ = " TRECEN TO VENTI TRE" 


1038 

Pf(38)=" FARFUGLIARE" 


1039 

Pf ( 39)= "ONNIVORO" 


1040 

P$( 4 0'» = "MAGNESI TE" 


1041 

Pf (41) = "DARWIN" 


1042 

P I ( 4 2 ) = " W U T T E M B 0 C H " 


1043 

P$C43>=" APPROFITTO" 


1044 

P f ( 4 4 > = " S T U 0 J A " 


104.5 

Pf (45)=" JOJO" 


1046 

Pf (46>="ZAZZERE" 


1047 

Pf ( 47) =" ZUZZERELLONE" 


1048 

Pf (48)*"TPANSIST0P" 


1049 

Pf ( 49) * " COMPUEP " 


1050 

Pf (50)="SOFTWAPE" 


1051 

Pf (51 )="HARDWhPE" 



1052 Pf <52>="PARTENnpEA" 

1055 Pf (55>*"SESS0" 

1056 Pf (56)="SASS0" 

1057 Pf <57)*"SEN0" 

1058 Pf <58>="C0SCIE" 

1059 Pf <59)*"TP0TTARE" 

1060 Pf(60> = " TENTATORE" 

1061 Pf (61>="QUACQUER0 M 

1062 Pf <62)*"QUINQUENNALE" 

10 63 Pf ( 63) = "QUARANTAQUATTRO" 

106.4 Pf (64>="V0SEMITE" 

1065 Pf <65>*"XENON" 

1066 Pf <66)="T0KEN" 

1067 Pf (67>="P0KE" 

1068 Pf <68>="PEEK" 

1069 Pf <69>="NEXT" 

1070 Pf<70)*"EXEC" 

1071 Pf <71)="STICK" 

10T2 Pf(72>=" INKEY" 

1073 Pf(73>="ÀCCACIELLE" 

1074 P$(?4)="B0X" 

1075 Pf (?5)="SMUS$0" 

1076 Pf <76) = ". RASPARE" 

1077 Pf(77>=" RAGGRUMARE" 

1078 Pf (78>* n TA22A" 

1079 ?f <79>*"ZftPPA" 

1080 Pf <80>="RAZ£A" 

1081 Pf <81>="PUZZA" 

1082 Pf <82>="TP0TTO" 

1083 Pf (83>="TETT0" 

1084 Pf <84>="TATT0" 

1085 P$(85)=" RATTO" 

1086 Pf <86>="LILLA" 

1087 Pf (8?>="L0LITA" 

1088 Pf (88>="FARFUGLIA" 

1089 Pf <89)="EFFE M 

1099 Pf (90>="FORFETTOARIO" 

1091 Pf(91)=" CICCIA" 

1092 Pf(92> fe " COCCA" 

1093 Pf C93*="ACCA“ 

1094 Pf f 94> = "CACC-A" 

1095 Pf <95>*"V0U" 

1096 Pf(96>="VUNG" 

1097 Pf <97)= H YESTERPAV" 

1098 Pf < 98>* M JONNV" 

1099 Pf <?9>="TIKET" 

1190 Pf (100) a" VOUR" RETURN 

1101 DIMFf <12> • Ff <0)="STAI IMPARANDO LA 
TELEGRAFIA CON L ' HOME -COMPUTER OLIVETTI 
PPQDES T PO 128" 

1102 Ff(.l> = " ANNIBALE FIJVINTO DA SCIPIONE 
L'AFRICANO A ZAMA COME SI DICE NELLA VI 

TA DI SCIPIONE L'AFRICANO" i 

1103 FfCà^s" L'AMORE E' LA RADICE RPQFOND 
A DI OQNI ESSERE UMANO" 

1104 Ff<3> = " QUESTO E' IL CORSO DI TELEO* 
ARIA CHE TI OFFRE LA JACKSON. SPERIAMO C 
HE TI PIACCIA E TI SERVA" 

1105 Ff(4)="ORA TRASMETTO UNA PAROLA DIF 
FI CILE PRECIPITEVOLISSIMEVOLMENTE" 

1106 Ff (5>*"FACCI AMO UN PO' DI CONTI: 47 
5*0-237 FA 47263. PIGRECO VALE 3.1415926 
54" 

1107 Ff(6) a " ONLV VOU E' VERAMENTE UNA CA 
NZONE DELIZIOSA" 

1108 Ff(7)*"CHE FATICA STUDIARE LA TELE0 
RAFIA' ' ! ' VERO????" 

1109 Ff(8)»"lL CANTO DEL MERLO .E' VIRANE' 
NTE PIACEVOLE MA QUELLO DELL'USIGNUOLO L 
0 SUPERA IN BELLEZZA" 

1110 Ff<9>*. "ATTENTO ORA CHE TRASMETTO LE 
TTERE A CASO: T JGHGl AS J8FDR754URDI 5RC05R 
85485D5D49I5II6I7647D7" 

1111 Ff (IO) 1 * "QUESTA E' UNA FRASE BREVE** : 
RETURN 
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LE MANI 
SUL VIDEO 


di G. Ferri 

O ltre ai comuni terminali 
esistono i cosiddetti 
"touch screen" cioè quegli appa- 
recchi con lo schermo sensibile al 
tocco. Vediamo di che cosa si 
tratta e come funzionano. 

Con il termine "touch screen" si 
denotano quei terminali che sono 
sensibili al tocco dell'utente sullo 
schermo. 

Com'è noto l'organo principale e 
più usato di input è la tastiera, ma 
alcuni costruttori hanno pensato 
di utilizzare anche lo schermo per 
l'immissione dei dati. 

Questa tecnica è nata molti anni 
fa e fu inizialmente usata laddove 
l'uso della tastiera come strumen- 
to di ingresso dati appariva trop- 
po complicato: per esempio in 
certe fabbriche americane questa 
soluzione ha trovato larga diffu- 
sione, anche in applicazioni di ge- 
stione. 

Ci sono diverse tecnologie di 
schermi tattili (così vengono tra- 
dotti in italiano): quella ottica, l'a- 
custica, quella a resistenza di 
membrana e la capacitativa. 
Negli USA ci sono varie ditte che 
producono "touch screen" e una 
delle più importanti è senz'altro la 
AT&T Information System che ha 
adottato il sistema capacitativo. 
La casa che comunque a contri- 
buito maggiormente a far cono- 
scere i "touch screen" al grosso 
pubblico è stata la Hewlett-Pa- 
ckard con il suo personal HP 150. 
Le varie tecnologie sono diverse 
tra di loro e possono anche in- 
fluenzare le modalità di uso dello 
schermo stesso. 

Nel caso delle prime tre tecniche il 
comando viene accettato sia nel 
caso si usi il dito che la penna. I 
sistemi capacitativi invece chiedo- 
no che il comando venga dato 
con il dito con una opportuna ca- 
rica elettrica. 

Inoltre, negli schermi realizzati se- 
condo le prime due tecnologie è 
sufficiente sfiorare lo schermo an- 



ziché toccarlo fisicamente perché 
il comando sia recepito. 

Un altro elemento molto impor- 
tante che differenzia le varie tec- 
nologie e gli stessi schermi tattili, 
realizzati secondo la stessa tecni- 
ca, è il grado di risoluzione che 
permette di definire le aree che 
identificano le varie funzionalità. 
Si va da un minimo di una trentina 
di punti di sensibilità come si trova 
nei sistemi più semplici, fino ad ar- 
rivare a oltre un milione nei mega- 
sistemi super evoluti. 

L'uso del touch screen nei perso- 
nal computer rappresenta un 
grosso stimolo per gli utenti: se- 
condo alcuni esperti lo schermo 
tattile abbinato con la tastiera 
rendono il sistema di più facile uti- 
lizzo. 

Ed effettivamente si può dire che 
così è stato, soprattutto negli Stati 
Uniti: tanto per fare un esempio, 
alcune banche hanno installato in 
certe loro filiali dei terminali con 
schermo sensibile. Il cliente può 
verificare l'andamento degli inve- 
stimenti, chiedere informazioni su 
azioni o altri titoli di suo interesse 
e altre operazioni ancora. 
L'utilizzo del computer in questa 
forma facilita senz'altro il collo- 
quio utente-macchina poiché evi- 
ta perdite di tempo ed è quasi im- 
possibile sbagliare (a meno che 
non lo si voglia). 

Come ultima cosa, pensiamo che 
si po'ssa vedere il "touch screen" 
quasi come il padre del mouse. 
Esso, infatti, rappresenta il primo 
tentativo di superamento dei tra- 
dizionali sistemi di input. Ciò non 
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vuole certo dire che questi vada- 
no sostituiti oppure che bisogna 
cercare a tutti i costi di non usare 
la tastiera. 

Un conto è infatti cambiare un og- 
getto che decade per prestazioni, 
di fronte a ciò che tecnicamente lo 
supera (vedi lettore di schede, ma 
anche i "personal-utenti" si ac- 
corgono di come i computer che 
rimangono legati alla cassetta 
vengono soppiantati da quelli che 
permettono l'utilizzo del flop- 
py/disk). 

Altro, invece, è cercare un utilizzo 
il più intelligente e comodo possi- 
bile dei mezzi che si hanno a di- 
sposizione. 

E molto meno realizzabile un uso 
di servizi bancari tramite mouse 
che non tramite schermo sensibi- 
le; viceversa, dato che il "touch 
screen" rivolto al grande pubbli- 
co si presenta con un numero limi- 
tato di campi selezionabili, laddo- 
ve tale numero cresce è molto 
meglio utilizzare il mouse. 

Perciò i terminali con lo schermo 
sensibile hanno ancora la loro ra- 
gione di esistere; se è pur vero 
che per certe applicazioni, so- 
prattutto grafiche, sono stati su- 
perati da altri strumenti (appunto 
mouse, joystick, penna ottica) è 
altrettanto sicuro che possono 
svolgere con successo compiti in 
cui non è necessario il massimo 
dettaglio o l'accuratezza nell'in- 
gresso dei dati. 


LA “MENTE” 

DEL COMPUTER 


di G. Ferri 

I ntelligenza Artificiale: che co- 
s'è? 

Nel 1956, a Dartmouth, Marvin 
Minsky del Massachussets Instia- 
te of Tecnology, John McCarthy 
della Stanford University, Claude 
Shannon dei Bell Telephone La- 
boratories, fondandola ufficial- 
mente, l'hanno definita come il 
tentativo di riprodurre attività con- 
siderate intelligenti per mezzo di 



processi automatici. 

All'inizio si è fatta soprattutto ri- 
cerca pura senza fini applicativi 
immediati. Ad esempio ci si è de- 
dicati al gioco degli scacchi e al 
cosiddetto "GPS", (generai pro- 
blems solver). 

In un secondo tempo si è pensato 
alle applicazioni pratiche per veri- 
ficare la validità delle ipotesi di 
partenza. 

È di quel periodo, per esempio, la 
creazione del sistema esperto 
"Mycin", in grado di eseguire at- 
tività di consulenza nella diagno- 
stica medica. 

Al momento attuale ci si dedica 
soprattutto a delimitare problemi 
precisi da affrontare, volta per 
volta, per raggiungere un obietti- 
vo ben preciso e limitato. 

In breve, l'intelligenza artificiale, 
all'inizio, si è occupata di capire 
come gli uomini imparano e come 
una macchina potrebbe acquisire 
nuove conoscenze in particolari 
settori. 

Ci si è accorti, però, che, per otte- 
nere risultati veramente soddisfa- 
centi, c'era un enorme dispendio 
di tempo e di energia. 

Forse non sembra, ma il cervello 
umano adopera meccanismi non 
così banali per codificare e deco- 
dificare un messaggio, ovvero ciò 
che proviene dal mondo esterno. 
L'esempio classico è quello del 
leggere o scrivere un testo. 

Va soprattutto chiarito il ruolo fon- 
damentale che ha la nostra me- 
moria nel processo di compren- 
sione: infatti, ‘la mente umana, im- 
magazzina determinate cono- 
scenze che vengono in seguito 
riutilizzate in situazioni simili a 
quelle originarie, in cui è avvenuto 
un processo di conoscenza. 
Quindi l'intelligenza artificiale di 
costruire dei sistemi "intelligenti", 
così detti in quanto emulano le 
doti intellettuali dell'uomo; si cer- 
ca di insegnare alla macchina a 
comportarsi come gli uomini sce- 
gliendo le soluzioni più soddisfa- 
centi. 

Per fare un esempio chiaro a tutti 
parliamo del gioco degli scacchi: 
è questo un ottimo test per valuta- 
re le capacità "intellettuali" della 
macchina. 



Per prima cosa va detto che non è 
possibile riuscire a immagazzina- 
re tutte le mosse possibili consen- 
tite ai 32 pezzi degli scacchi sui 64 
quadratini della scacchiera. 

Si procede allora come si fa con 
gli uomini: gli si insegna a gio- 
care! 

Cioè si scrive un programma che, 
per prima cosa, conosca le regole 
del gioco; ma poiché gli scacchi 
sono un gioco di strategia è ne- 
cessario che anche il programma 
sia in grado, come l'uomo, di 
analizzare le mosse migliori, di 
prevedere o prevenire quelle del- 
l'avversario. 

Perciò il programma in questione 
dovrà essere in grado di fare il 
maggior numero di analisi possi- 
bili (detto in BASIChese, ci saran- 
no molti IF-THEN). 

Già da questo potete intuire co- 
me sia più difficile battere a scac- 
chi un programma scritto su 64K 
piuttosto che uno scritto su 16K, 
dato che nel primo computer c'è 
più memoria si potranno analiz- 
zare più mosse di quanto si possa 
fare sul secondo. 

Sempre rimanendo nell'ambito di 
questo gioco è chiaro che più il 
computer ha memoria più gioche- 
rà bene; a tutt'oggi si tengono 
campionati di scacchi uomo con- 
tro computer e spesso la macchi- 
na riesce a battere i maestri del 
gioco. 

Un primo risultato che si è già ot- 
tenuto è rappresentato dal fatto 
che il computer esegue le opera- 
zioni di analisi e calcolo molto più 
velocemente di quanto faccia 
l'uomo; pertanto in tutte le appli- 
cazioni di intelligenza artificiale ci 
si può avvalere di questa impor- 
tante capacità. 

E sciocco tuttavia pensare che 
con queste macchine si possano 
risolvere problemi che nessun uo- 
mo può risolvere: a tutti i traguar- 
di a cui arrivano le macchine do- 
tate di "intelligenza artificiale" 
può arrivare anche l'uomo, te- 
nendo conto però che questi ne- 
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cessiterebbe di molto più tempo. 
Si può quindi dire che si cerca di 
far "ragionare" la macchina. 
Possiamo individuare alcune ca- 
tegorie di applicazioni per l'intelli- 
genza artificiale: 

- la robotica, dove i compiti che 
di solito sono eseguiti da persone 
vengono svolti dalle macchine; 

- i linguaggi naturali, ovvero la 
ricerca di una comunicazione con 
il computer fondata sul linguag- 
gio di ogni giorno, non quindi ba- 
sata sui vari linguaggi di pro- 
grammazione tipo BASIC, Pascal, 
Logo e così via; 

- il trattamento e il riconoscimen- 
to delle immagini; 

- i cosiddetti "sistemi esperti", 
che sono il tipo di applicazione di 
maggior successo commerciale: 
si tratta di quei programmi che- 
danno alla macchina l'esperienza 
specialistica di un uomo in un cer- 
to campo. 

Un esempio che può dare un'idea 
del valore di questo argomento 
(gli scacchi sono solo un passa- 
tempo, un punto di partenza se 
vogliamo) ci viene dato dalla me- 
dicina. 

In questo campo i sistemi esperti 
sono in grado di svolgere una 
gran mole di lavoro, specie nella 
diagnostica dove i risultati sono 
spesso superiori a quelli di medici 
specialisti. 

Capire come questo può avvenire 
è abbastanza semplice: basta im- 
mettere nella memoria del com- 
puter il maggior numero possibile 
di casi. In base a questa esperien- 
za acquisita e confrontando le 
analisi effettuate sul paziente, è 
possibile ritrovare casi analoghi 
già visti in precedenza ed emette- 
re quindi una diagnosi probabile. 
Come vedete la macchina non fa 
altro che ripetere quello che fa- 
rebbe il medico stesso, solo che 
impiega molto meno tempo. 
Sistemi esperti vengono usati mol- 
to spesso pure neTl'industria, an- 
che se l'aspetto più rilevante, per 
quanto riguarda l'intelligenza arti- 
ficiale, è dato dalle applicazioni di 
robotica, specie nelle grandi fab- 
briche. 
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I Dizionari Tecnico-Scientifici costituiscono una 
novità assoluta nel panorama editoriale italiano, 
in quanto uniscono la decennale esperienza di 
know-how informatico e di divulgazione tecnica, 
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rienza informatica Jackson, utilizzano una estesa 
rete di rinvii, controllata da calcolatore, per age- 
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ma anche delle voci attinenti. Appendici di rapida 
consultazione e un vasto materiale iconografico 
ne completano la struttura. 
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<!;; SUPERGAME C16&Plus4 




P aul Newman deve molto al 
biliardo. Proprio quest'anno 
il Colore dei Soldi, la continuazio- 
ne dello Spaccone gli ha permes- 
so di vincere il primo premio Oscar 
della sua carriera. 

Nello Spaccone, thè Hustler il tito- 
lo della versione originale, Paul 
Newman interpreta la parte di un 
giovane giocatore di biliardo che 
paga a caro prezzo la sua esube- 
rante voglia di vincere tutto e su- 
bito nel biliardo. 

Per i numerosi dilettanti di questo 
tipico sport da bar, il sogno proi- 
bito rimane quello di strabiliare gli 
amici con colpi a 3 sponde, effetti 
incredibili, retri perfetti, messe ect. 


Il metodo migliore per raggiunge- 
re un simile livello di abilità è ave- 
re un tavolo con il panno verde a 
portata di mano, magari nella 
propria abitazione. Una simile so- 
luzione non è alla portata di tutti e 
per non rinunciare ad un comodo 
e poco costoso allenamento ecco 
il videogioco che fa al caso vo- 
stro: thè Hustler 

6 giochi con la stecca per auto e 
due giocatori, numerose possibili- 
tà di effetto, calcolo automatico 
dei punti e schermo finale con i 
migliori punteggi sono alcune del- 
le caratteristiche di questo nuovo 
gioco di biliardo presentato nella 
serie J. Soft Compilation. 

IL GIOCO 

Per giocare ad Hustler è molto 
semplice. Il biliardo è visto dall'al- 
to ed una cursore a forma di cro- 
ce è in pratica il mirino che vi indi- 
ca la direzione del colpo. Decisa 
l'inclinazione della stecca potete 
selezionare il tipo di effetto che 
volete utilizzando i tasti funzione. 


Una barra che continua ad allun- 
garsi ed accorciarsi indica la for- 
za del tiro. Premendo il pulsante 
di sparo il vostro colpo sarà più o 
meno forte in proporzione alla 
lunghezza della barra. 

Una volta caricato il gioco appa- 
re il seguente menu principale con 
le diverse opzioni di gioco. 

1 - Un giocatore: ogni palla in 
una buca qualsiasi. 

2 - Un giocatore: le palle in buca 
in ordine 

3 - Un giocatore: mettere la palla 
nella buca corrispondente. 

4 - Due giocatori: ogni palla nella 
buca corrispondente e si conteg- 
gia la buca 

5 - Due giocatori: mini pool-Ci 
sono due tipi di palle denominate 
in base a dei disegni Spot e Stri- 
pes. Il giocatore che imbuca la 
prima palla deve poi dedicarsi 
solo a quel tipo. 

6 - Due giocatori; un giocatore 
mette in buca le palle in ordine 
crescente da 1 a 6, l'altro da 6 a 
1 . 

7 - Migliori punteggi 
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I COMANDI 

Per giocare ad Hustler potete 
usare il joystick collegato nella 
porta due oppure la tastiera. Il 
cursore a forma di croce che indi- 
ca la direzione del colpo viene 
guidato dal joystick oppure con i 
tasti freccia. Per dare il colpo se- 
condo la forza indicata dalla bar- 
ra nella parte destra dello scher- 
mo premete il pulsante di sparo 
sul joystick oppure la barra spa- 
ziatrice. 

Per impostare l'effetto premete i 
tasti funzione prima di dare il 
colpo. 

FI - Effetto in alto ( Top Spiri ) 

F2 - Colpo sotto (Back Spiri ) 

F3 - Effetto a sinistra ( Left Spiri ) 
HELP - Effetto a destra ( Right 
Spiri) 

L'effetto alto o basso può essere 
accoppiato con l'effetto sinistro o 
destro. 

Premendo il tasto funzione più o 
meno a lungo, potete aumentare 
l'intensità dello spin. 

L'effetto può essere annulato pre- 
mendo il tasto Inst/Del 
Per interrompere una partita pre- 
mere il tasto ESC 

II computer conteggia falli ed il 
punteggio. Per esempio per ogni 
palla non colpita oppure se la vo- 
stra finisce in buca vengono con- 
teggiati 5 colpi invece di uno. 

ISTRUZIONI PER IL 
CARICAMENTO 

Accendete il computer ed inserite 
la cassetta nel registratore con il 
nastro riavvolto dall'inizio. Digi- 
tate 

LOAD "",1,1 

premere il tasto RETURN e quindi 
il tasto PLAY sul registratore. 

Editoriale Jackson, 
proprietario esclusivo 

l'Italia di questo gioco, invita i lettori 
che ne fossero a conoscenza, a 
segnalare l'esistenza di eventuali altre 
pubblicazioni contenenti questo stesso 
gioco, alla redazione della nostra 
rivista. 

Le prime tre segnalazioni saranno 
convenientemente compensate. 
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CACCIATORI DI TESTE 


di Bottogin Doriano 


C acciatori di teste si inserisce nella gamma di 
programmi/gioco in cui conta soprattutto la 
logica e una buona dose di intuito da parte del 
giocatore come quelle di un navigato esploratore 
dei posti più impervi di tutta la terra. 

Questo gioco tratta appunto l'avventura di un ardi- 
to esploratore che cerca di scoprire il luogo che 
cela il nascondiglio dell'ambitissimo Arco d'Oro. Lo 
scenario si presenta senz'altro ostile il cammino per 
raggiungere la meta si preannuncia cosparso di 
innumerevoli insidie quali 2 villaggi abitati da feroci 
indios, pericolosissimi sono anche i fiumi e la natura 
circostante che cela sabbie mobili e animali feroci. 
Il gioco si presenta all'utente come una classica 
adventures che gode dell'ausilio di routine grafiche 
che servono a rendere più reale lo scenario che si 
presenta di volta in volta al giocatore. Molto curata 
risulta la parte scritta del gioco che risulta colorita di 
situazioni pericolosissime che possono migliorare in 
base alle scelte del protagonista. Il gioco gode di 
parametri di giocabilità molto alti in modo da collo- 
care il prodotto come uno dei migliori giochi/a- 
dventures degli ultimi tempi. Il gioco viene regolato 
dai parametri: Forza, abilità e fortuna; al giocatore 
il compito di non fare annullare il loro valore che 
sancirà la sua morte. 

Ci sono circa 100 luoghi di cui 4 mortali, mortale è 
anche la mancanza di forza. 

Per recuperare tale Forza bisogna accamparsi op- 
pure essere ospitati in uno dei due villaggi indios. 
La diminuzione della Forza avviene in diversi casi: 

1) Quando il primo contatore arriva a 10 

2) Quando avrai, se avrai, lo scontro con un gia- 
guaro particolare. 

3) Quando i contatori della Bravura e Abilità arriva- 
no a zero. 

Ci sono casualità che faranno aumentare il conta- 
tore della fortuna (quando apparirà la scritta sei 
fortunato). 

Se non sarai fortunato avrai due possibilità che po- 
tranno incrementare i contatori della Fortuna e Abi- 
lità. 

Ci sono due fiumi: il Rio Branco e il Rio delle Amaz- 
zoni, entrambi mortali. Mortali sono anche le sab- 
bie mobili, potrai trovare acqua e munizioni, non 
consumare troppi fiammiferi, i bordi dello schermo 
cambiano in base all'ora. L'orologio serve per deci- 
dere se intraprendere la via fluviale oppure accam- 
parti. 

Avrai l'aiuto con mappa. 


GUIDA ALL'INPUT 
CI 6 & PLUS 4 

TABELLA DI CONVERSIONE 

i {HOME} HOME 

(CLR } PULIZIA SCHERMO 

{CUR.SU}'.'.'.'.'. CURSORE IN ALTO 
{CURGIU} CURSORE IN BASSO 
/ CURDES }" CURSORE A DESTRA 
{CURSINÌ " CURSORE A SINISTRA 
SPO ...Il SPAZIO 
{RVS ON} .... REVERSE ON 
{RVS OFF} .... REVERSE OFF 

{INST} INSERT 

{BLACK} COL NERO (CTRL+ 1) 

{WHITEj COL. BIANCO (CTRL+2) 

/RED} COL. ROSSO (CTRL+3) 

{CYAN) COL. CIANO (CTRL+4) 

{PURPLE} COL. PORPORA (CTRL+5) 

{GREEN} COL. VERDE ( CTRL +6 ) 

{BLUE} COL. BLU (CTRL+7) 

{YELLOW} COL. GIALLO ( CTRL+8 ) 

{ORANGE}". COL. ARANCIO (CBM+1) 

{BROWN} COL. MARRONE (CBM+2) 

{ YL-GREEN } COL. GIALLO-VERDE (CBM+3) 

/ PINK } COL. ROSA (CBM+4) 

/ BL-GRN } COL. BLU-VERDE (CBM+5) 

{LT. BLUE} COL. BLU CHIARO (CBM+6) 

{D BLUE} "" COL. BLU SCURO (CBM+7) 

{LT. GREEN}'. COL. VERDE CHIARO (CBM+8) 

NORME PER LA BATTITURA 

I caratteri grafici, ottenuti con la pressione dei 
tasti "Shift" e "CBM", sono codificati in modo 
da indicare il tasto da premere assieme a 
"Shift" o "CBM". Es. il cuoricino è codificato 
con >SHS<. Il numero dentro le parentesi indi- 
ca le volte che il tasto va premuto. 

NORME PER IL CARICAMENTO 
DEI PROGRAMMI SU CASSETTA 

Le istruzioni di caricamento del supergame ven- 
gono riportate nel contesto della relativa de- 
scrizione. Oltre al supergame sono registati su 
nastro tutti gli altri programmi presentati su 
questo numero i quali vanno caricati, salvo di- 
versa indicazione, con: LOAD <RETURN> 
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1 COLORO, 1 -.COLORA, 1 : COLORI , 3 : PR INTCHR$ ( 1 
4 ) : XX-0 

2 KB%-0:Y-7:J-7:H0%-12:MM*-0:P-1:F-0:ZA* 
- 8 : ZCJ- 8:ZE*-8:ZHX-5 : ZB%-25 : ZD%- 1 0 

3 ZIM : A -0 : V 1-0 : 

5 PR INT" { CLR } { 3 SPCHCBM A ) { SH •} { CBM A 

} { SH * } { CBM S } { CBM A}{SH »}{CBM S}{CBM 
A } { SH * ) ( CBM S } {CBM R}{CBM A}{SH * } { C 
BM S } { CBM Q } {CBM A }{ SH «}{CBM S}{CBM A 
} { SH * } {CBM S } {CBM R } { 3 SPC){SH 

10 P R I N T ” { 3 SPCHSH - } { 2 SPC}{CBM Q}{SH 
* } {CBM W } { SH - } { 2 SPCHSH - } { 2 SPC}{S 
H - } { CBM Q } ( SH *}{CBM W } { 2 SH -}{SH S 
PC } { SH - } {CBM Q } { CBM R}{CBM X } { SH ~}{ 
2 SPC} {CBM A} {CBM W} {SH 

15 PR INT " { 3 SPC } { CBM Z}{2 SH *}{CBM E}{S 
H * } { 2 CBM E } { SH *}{2 CBM E}{SH *H3 
CBM E } { SH * } { 3 CBM E}{SH * } { 3 CBM E}{ 
SH * } { CBM E } { 2 SH *}{2 CBM E}{CBM W}" 

20 : 

25 PR INT " { 1 3 SPC } { SH *){CBM R } { 1 0 SH * } " 

30 PRINT"{4 SPC } D I { 8 SPC}{SH -}{CBM A } { S 
H * } {CBM A } { SH *} {SH *}{CBM R}{SH *} 
{CBM A} {SH *}" 

35 PRINT" {SH B } ATT AG IN {5 SPCHSH -}{CBM 
Q } { SH * } {CBM Z } { SH *}{CBM S} {SH -} 
{CBM Q} {SH * } { 2 SPC}-<>-" 

40 PRINT" {SH D}0RIAN0{5 SPC){SH * } { 2 CB 
M E } { 3 SH * } {CBM E } { SH »}{CBM E}{SH * 
} {CBM E} {SH »} {2 SPC } 2 1 0 1 " 

41 PRINT" {CUR. GIU} {15 SH *}{SH A}{SH M}{ 
SH A } { 2 SH Z } { SH 0}{SH N}{SH I}{SH A) 
{16 SH •)" 

42 PR INT " { 2 CUR. GIU} {SH S}EI ALLA RICERC 
A DELL * ARCO D'ORO" 

43 PRINT" IL TUO SCOPO OLTRE A QUELLO DI 

« 

44 PR INT "TROVARLO E' DI SOPRAVVIVERE 

ii 

45 PR INT" { SH P}UOI CHIEDERE AIUTO, TI APP 
ARIRA " 

46 PRINT "LA MAPPA DEL LUOGO." 

47 PR INT" { SH C } ONT ROLLA I CONTATORI DELL 
'ABILI" 

48 PRINT"TA ' .DALLA FORTUNA E DELLA FORZA 

ii 

49 PR INT " { SH A } TTENTO AI FIUMI POSSONO E 
SSERE" 

50 PR INT"MORTAL I ! ." 

51 P R I N T " { 2 CUR.GIUH40 SH » } " : FOR I- 1 T0 1 
0000 : NEXT 

55 IFZA%-OTHENPRINT"{WHITE} {SH N } ON HAI 
RECUPERATO LA FORZA ": G0T01 360 

60 IFKB$-10THENZA%-ZA*-1 : KB % - 1 :ZEX-ZE*+1 
: F-F+1 

65 H* -INT(60*RND(1 ) ) ♦ 1 :MX>t-Hj:MM/6-MM$ + M 
X* 

70 IF MM*->60THENMM*»MM%-60 :H0X-H0*+1 

75 IF H0X>23THENH0X-0:ZI*-ZI**1 :ZH%-ZH%- 
2 

80 ZG*-P:KB*-KB%*1 :F-F*1 

90 PRINT’MCLR} {GREEN} {RVS ON){CBM A } { 1 1 
SH * } { CBM R } { 1 4 SH *}{CBM R } { 3 SH «}{ 
CBM RJ {7 SH «} {CBM S}"; 

95 PRINT" {RVS ON}{SH -}{SH F}{SH 0}{SH R 
} { SH Z } { SH A } { 6 SPC } { SH - } { SH M}{SH U 
} { SH N } { SH I } { SH Z } { SH I}{SH 0}{SH N} 
{SH I } { 5 SPC } { SH - } { SH 0 } RE { SH -}{RVS 
OFF } { 7 SPC } {RVS ON } { SH -}" ; 

100 PR INT" { RVS ON}{SH -}{SH F } { SH 0}{SH 
R } { SH T } { SH U } { SH N}{SH A } { 4 SPC}{SH 
-}{SH L } { SH U } { SH 0 } { SH G}{SH 0 } { 9 


SPC} {CBM Q } { 3 SH * } {CBM E}{2 SH »}{C 
BM R} { 4 SH »} {CBM W} " ; 

105 PR INT" { RVS ON } { SH - } { SH A}{SH B}{SH 
I } { SH L } { SH I } { SH T } { SH A } { 4 SPC}{SH 
-}{SH F } { SH I } { SH A } { 2 SH M}{SH I}{ 
SH F } { SH E } { SH R } { SH I}{4 SPCHSH -} 
{SH G } IORN I { SH -}{4 SPCHSH -}"; 

110 PRINT"{RVS ON } { SH -}{SH A}{SH C } { SH 
Q } { SH U } { SH A } { 6 SPC } { CBM Q } { 1 4 SH » 
} { C BM E } { 6 SH * } {CBM E } { 4 SH «}{CBM 
W}"; 

115 PRINT" {RVS ON } {CBM Q}{9 SH *}{CBM R} 
{SH * } {CBM X } { SH A } IUTO { 9 SPC}>FINE{ 
7 SPC} { SH -}"; 

120 PRINT" {SH - } { 9 SPCHSH -}F0RZA{3 SPC 
} FORTUNA { 3 S P C } A B IL IT A { 3 SPCHSH -}" 

125 PR INT" { CBM Z } { 9 SH *}{CBM E}{28 SH » 
} {CBM X} " ; 

130 PRINT" {RVS ON } { SH -}{RVS OFF}{32 SPC 
}" 

135 PRINT" {39 SH * } " 

140 PR INT" { HOME } ( CUR . G IU } { LT . GREEN } " ; 

145 PRINTTAB(9)ZA* ; T A B ( 2 4 ) Z B X ; T A B ( 3 1 )HOX 
;MMJ: PRINT" (HOME) {2 CUR. GIU}"; 

150 PRINTTABC9 )ZCJ ;TAB(23)ZG^ : PRINT" {HOM 
E} {3 CUR. GIU}"; 

155 PR INTTAB(9 )ZE% ;TAB(24 )ZD$ ;TAB( 36 )ZI5 
; : PRINT" {HOME} {4 CUR.GIU}";TAB(9)ZHX 
: P R INT " { HOME } { 6 CUR. GIU}"; 

160 PRINTTAB( 16)KB* ; TAB ( 26 ) Y ; TAB ( 36 )J :PR 
INT" {CUR. GIU} " 

1 80 : 

185 IF P-1THENPRINT" {SH T } ERM IN A IL MOND 
0 CONOSC IUTO- { SH A}MAZZ0NIA-":N-0:E- 
0:S-16:0-0:G0T0550 

190 IF P-6 THEN PR INT " { SH G } R IDA DI ANIMA 
LI GIUNGONO DALLA FORESTA " : N -0 : E- 7 : S 
-21 : 0-0 : GOTO550 

195 IF P-7 THENPRINT"{BLUE}{SH N } ON SERV 
E REMARE SEI IN UN BAC INO" : N-0 : E-0 : S 
-22:0-6 :G0T08l0 

200 IF P-1 6THENPRINT"LA GIUNGLA E' FITTA 
E VARIOPOINTA" :N-1 :E-17:S-31:0-0:G0 
T0550 

205 IF P-1 7THENPR INT" {SH I } N LONTANAZA T 
ERRA DA PASCOLO" :N-0 :E-1 8 :S-0 : 0 — 1 6 :G 
OT0550 

210 IFP-18THENPR INT" {SH S}EI NEL V ILLAG I 
0 DEI JAVARO" :N-0 :E-1 9 : S- 0 : 0- 1 7 :GOTO 
550 

215 IF P-1 9THENPR INT" {SH S}UL SENTIERO U 
NA LUGUBRE FILA DI SCALP I" : N-0 : E-20 : 
S-0:0-18:GOT0550 

220 IF P-20THENPRINT" {SH S}EI SU UNA R IC 
CA PIANTAGIONE DI BAN ANE " : N-0 : E-2 1 : S 
-35 :0«1 9 :GOTO550 

225 IF P-21THENPRINT" {SH IJNSOLITI RUNOR 
I , UN FIUME.IL {SH R } IO {SH N } EGRO " ; N 
-6:E-0:S-0:0-20: GOT0550 

230 IF P-22THENPRINT"{BLUE} {SH I}L FIUME 
E' LARGO 30 METR I" : N-7 : E-0 : S- 37 : 0-0 
: G0T08 1 0 

235 IF P- 3 1 THENPR INT" {SH A} OVEST LA C IM 
A INNEVATA DEL {SH C}{SH H}{SH I}{SH 
M } { SH B } { SH A } { SH R}{SH A}{SH S } { SH 
0} " :N-1 6 :E-32:S-46 :0-0 :G0T0550 

240 IF P-32THENPRINT"GRIDA DI ANIMALI Gl 
UNGONO DALLA FOREST A" : N-0 : E - 3 3 : S-0 : 0 
-31 : G0T0550 

245 IF P-33THENPRINT"{SH U}NA IMMENSA DI 
STESA DI CANNE DI BAMBÙ N-0 : E-0 : S- 
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250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 
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48:0-32:G0T0550 

IF P-35THENPRINT" {SH PjASTORI JAVAR0 
. {SH M } EGL 10 NON A V V IC IN A RS I " : N - 20 : 
E-0 : S-50 :0-0 : GOTO550 

IF P-37THENPRINT"{BLUE} {SH I } L FIUME 
SCORRE LENTO p UN A SP IA GG I A " : N - 22 : E - 3 
8:S-52:0-0:GOT0810 

IF P-38THENPR INT" { BLUE} {SH UjN'ANACO 
N DA E' SOTTO LA TUA C ANO A " : N -0 : E -0 : S 
-53:0-37 : G0T08 1 0 

IFP-H6THENPR INT" {SH U } N 'ALBERO CON S 
OLCHI SCAVATI DAL G I A GU A RO " : N - 3 1 : E - 4 
7 :S-0 :0-0 :G0T0550 

IFP-47THENPR INT” {SH I } L SOLE FILTRA 
TRA GROSSI RAMI" :N-0:E-0:S-62:0-46:G 
OTO550 

IF P-48THENPRINT" {SH U}N RUGGITO DEL 
» TIGRE :N-33:E-4 9 : S-0 : 0-0 : G0T0550 
IF P-49THENPRINT" {SH 0 } RME DI GIAGUA 
RO SUL TERRENO" :N-0:E-50:S-0:0-48:GO 
T0550 

IF P-50THENPRINT"{SH S}EGNI DI LOTTA 
NEL TERRENO" : N-35 :E-51 : S-0 : 0- 4 9 : GOT 
0550 

IF P-51 THENPR INT" {SH R}ICHIAMI SELVA 
GG I SI UN ISCOMO-GIUNGLA-" :N-0 :E-52 :S 
-66 :0-50 :G0T0550 

IF P-52THENPR INT" {SH CJORRI UOMO COR 
RI SE VUOI SALVARTI":N-37:E-53:S»0:0 
-51 : G0T0550 

IF P-53THENPRINT"{BLUE} {SH C } ’ E * UNA 
SPIAGGIA COSA FA I" : N- 38 : E-5 4 : S-68 : 0 
-5 2 : G0T08 1 0 

IF P-54THENPRINT"{BLUE} ANIMALI SOTTO 
L'ACQUA SEMBRANO STATUE" : N-0 : E-55 : S 
-0:0-0: G0T08 1 0 

IF P-55THENPR INT" {BLUE} {SH L } EGAN AME 
FRA GLI SCOGLI DEL F IUME " : N - 0 : E - 0 : S 
-70:0-54 :G0T08l0 

IF P-56THENPRINT"{SH S}ENTI UN RUGGÌ 
TO IN LONT A N A Z A " : N -0 : E -0 : S-7 1 :0-0:G0 
T0550 

IF P-6 1 THENPR INT" { SH U}NO STAGNO CON 
ACQUA PUTREFATTA" :N- 0:E«62:S« 0:0» 
0 : G0T0550 

IF P-62THENPR INT" {SH E}’ UNA COSTRUZ 
IONE INCAS-ATTENTO" :N-47:E»63:S-77:0 
-61 : GOT0550 

IF P-63THENPR INT" {SH P}IOVE VIOLENTE 
MENTE. RIPARATI" :N- 0:E-64:S- 0:0-62: 
GOTO550 

IFP-64THENPRINT" {SH DJIFFICILE CREDE 
RE DI ESSERE IN AM A Z Z ON I A " : N - 0 : E -0 : S 
-79:O-63:GOTO550 

IF P-66THENPR INT" {SH A} EST LA GIUNG 
LA E' INPENETRABILE" :N-51 :E- 0:S-8l: 
0- 0 : GOT0550 

IF P-68THENPRINT" {SH A } N IMAL I FERMI 
SULLA RIVA":N-53:E-69:S« 0:0- 0 : GOTO 
550 

IF P-69THENPRINT" {SH U}NO STORMO DI 
UCCELLE IN V0L0":N-0:E-71 :S- 0:0-68: 
GOTO550 

IFP-70THENPRINT" {BLUE} SOPRA LA TUA T 
ESTÀ UN PONTE IN D IO" : N - 5 5 : E - 0:S-85: 
0- 0 : G0T08 1 0 

IFP-71 THENPR INT" {SH P}UOI ANDARE A S 
UD 0 TORNARE IN D IETRO" : N-56 : E- 0:S-8 
6 : 0-69 : G0T0550 

IFP-77THENPR INT" {SH C}OSA SUCCEDE ST 
AI SPROFONDANDO LENTAMENTE -{SH S}{S 
H A } { 2 SH B } { SH I}{SH E } { SH SPC}{SH 


M } { SH 0 } { SH B } { SH I}{SH L}{SH I}-":G 
OT 0 1 360 

370 IFP-78THENPR INT" {SH N}ON SEI STANCO 
DI GIRARE?" :N- 0 : E-79 : S-93 : 0- 0:GOTO 
550 

375 IFP-79THENPR INT" {SH AjLCUNI BIANCHI 
SONO IMPAZZIT I" :N-64 :E-0:S«0:0-78 :G0 
T0550 

380 IFP-81THENPRINT"{BLUE} {SH U}NA RIVA 
A NORD" :N-66 :E-82:S-96 :0- 0:G0T0810 
385 IF P-82THENPR INT" {BLUE} {SH S } I ODONO 
TAMTAM UNA BARCA LONTANA" :N- 0:E-83 
: S - 0:0-81 : G0T08 1 0 

390 IF P-83THENPRINT"{BLUE} {SH S } I AVVIC 
INA {SH C } { SH R } { SH I } { 2 SH B}{SH 1} 
{SH 0} SONO SENZA TESTA" :N- 0:E-84:S 

- 0:0-82: G0T08 1 0 

395 IF P-84THENPRINT" {BLUE} {SH S } EMBR A U 
NA BARCA IN LONTAN ANZA " : N- 0:E-85:S- 
0 : 0-8 3 : G0T08 1 0 

400 IF P-85THENPRINT"{BLUE} {SH S}IAMO SU 
L {SH R } IO DELLE {SH A } M A Z ZON I " : N - 7 0 
: E - 8 6 : S - 0 :0-84 :GOT0810 
405 IF P-86THENPRINT" { BLUE} {SH UjN’JGUAN 
A CORRE A CACCIA DI PREDE " : N-0 : E-87 : 
S-0 :0-85 :G0T0810 

410 IF P-87THENPR INT" { BLUE} {SH U}NA CASC 
ATA A EST A SUD UNA S P IA GG I A " : N - 0 : E - 
0:S-102:0-86:GOT0810 

415 IF P-91THENPRINT"{SH N}ON TROVI VARC 
HI MA LO VEDI" : N - 0:E-92:S- 0:0- 0:Z 
B%-ZB*+10:G0T0550 

420 IF P-92THENPR INT" {SH L } A VEDI E' A N 
ORD OVEST" : N-77 : E-9 3 : S- 0:0-91 :G0T05 
50 

425 IF P-93THENPR INT" {SH E}' IMMENSA MA 
COME ARRIVARCI?" :N-78 :E« 0:S- 0:0-92 
: GOT0550 

430 IF P-96THENPRINT'MBLUE} {SH U}NA SPIA 
GG I A , C ' E ' UNA VECCHIA CANOA" : N-8 1 : E- 
97 : S- 1 1 1 : 0 - 0:G0T08l0 
435 IF P-97THENPR INT" {SH U}NA PICCOLA BA 
RACCA ABBANDONATA" : N- 0 : E-98 : S- 1 1 2 : 0 

- 0 : G0T05 50 

440 IF P-98THENPRINT" {SH S}EI NEL V ILLAG 
G IO DEI {SH K } { SH A}{SH R } { SH A } { SH 
Y } { SH A}":N-0:E-99:S- 0:0-97 : Z A J - Z A $ 
♦1 : GOTO550 

445 IF P-99THENPR INT" {SH S}ENTI I TAMBUR 
I SUONARE MINACCIOSI" :N« 0:E-100:S-1 
1 4 : 0-98 : G0TO550 

450 IF P-100THENPRINT" {SH N } EL SENTIERO 
IMPRONTE DI INDIOS" :N-85 :E-1 01 :S- 0: 
0-99 :G0T0550 

455 IF P-101THENPRINT" {SH I } L {SH R } IO D 
ELLE {SH A } M A Z ZON I E’ A N 0 R D " : N - 0:E 

- 1 02 : S- 0:0-100: GOTO550 

460 IF P-1 02THENPR INT" {SH Q}UI» C’E' L ' A 
CQU A ":N-0:E-0:S- 0 : 0- 1 0 1 : ZHJ-ZH* ♦ 2 : 
G0T0550 

467 IFP-104THENPRINT" {SH U}NA LUCE TI AB 
B AGL IA " : GOSUB 1 480: : GOSUB2000 : GOTO 1 36 
0 

470 IFP-105THENPRINT" {SH U } N GIAGUARO TI 
ATTACCA" :N-0:E-0:S-1 20:0-104 :A-0:G0 
SUB 1 395 : G0T0830 
480 IF P-106THEN1455 

485 IF P-107THENPRINT"{BLUE} {SH S}EI INT 
ENTO A REMARE ":N- 0 : E-1 08 : S-0 : 0- 1 06 
: G0T08 1 0 

490 IF P-108THENPRINT"{BLUE} {SH L } 7 IMBAR 
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495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

560 

565 

570 

575 

580 
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605 
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635 

640 

645 
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C A Z IONE E' INCONTROLLATA" : N- 0:E«109 
:S-0:0-107:GOT0810 

IF P-1 09THENPR INT" { BLUE } {SH MjOLTI S 
COGLI NON HAI PAURA?":N- 0:E-110:S-0 
: 0- 1 0 8 : G0T08 1 0 

IF P-1 10THENPRINT"{BLUE} { SH I > L RUMO 
RE DEL FIUME E' ASSORDANTE " : N- 0:E-1 
1 1 : S- 0:0-109: G0T081 0 

IF P-1 1 1THENPRINT"{BLUE} {SH L } EGN AME 
FRA GLI SCOGLI DEL F IUME" : N - 9 6 : E - 1 1 
2 : S- 0:0-1 10:GOT0810 
IF P-1 1 2THENPR INT" {SH H}AI PERCORSO 
MOLTA STRADA" :N-97:E-0:S-0:0-1 11 :ZA$ 
-ZAX-1 : G0T0550 

IFP-1 1 4THENPRINT" {SH MJOLTO TEMPO E' 
PASSATO AVVENTURIERO" :N-99 : E- 1 15:S- 
0:0-0: GOTO550 

IF P-1 15THENPR INT" {SH Q } UN ATO RUMORE 
C ' E ' NELLA FOREST A " : N - 0:E-116:S- 0 
: 0- 1 1 4 : G0T0550 

IF P-1 1 6THENPR INT" {SH T}ROVI UNA SCR 
ITT A < V A I NELLA GROTT A > " : N -0 : E - 1 1 7 : S 
-0:0-1 1 5 : GOT0550 

IF P-1 17THENPRINT" {SH U}NA GROTTA, {S 
H CJHISSA COSA C’E'?":N- 0:E-118:S-1 
32:0-1 1 6 : G0T0550 

IF P-1 1 8THENPR INT" {SH I } L FUCILE NEL 
LA DESTRA SEI DENTRO" :N- 0:E-119:S-0 
: 0- 1 1 7 : G0T08 30 

IF P-1 19THENPRINT"{SH AjVANZI LENTAM 
ENTE HAI MOLTA PAURA":N- 0:E-120:S-0 
: 0- 1 1 8 : G0T08 30 

IF P-1 20THENPRINT" {SH SJENTI UN FORT 
E ODORE DI AN IMALE" : N — 1 0 5 :E-0:S-0:0- 
1 1 9 : G0T08 30 
IFZAX-1THENG0SUB1 350 

IFH0X>-óANDH0X<-1 7THENC0L0R4 ,8 : G0T06 
40 

IFH0X>-1 8ANDH0X<-20THENC0L0R4 , 1 3 : GOT 
0640 

IFH0X-21THENC0L0R4 , 1 4 :G0T0585 
IFHOX =230RHOX<-5THENCOLOR4 , 1 : K A = KA ♦ 
2 : G0T06 35 

IFHOX >«6ANDH0X< - 1 7THENCOLOR4 ,8 : GOTOó 
40 

IFZDX-OTHENPRINT" {WHITE}N0N HAI PIU’ 
FIAMMIFERI" :GOTO640 
PRINT'MD.BLUE) {SH V}UOI ACCAMPA RT I<S 
. N > " ; 

GETA$ : IFA$<>"N"ANDA$<>" S"THEN595 
IFA$-"N"THENPRINT : GOTOó 40 
KAX-INT(21 * RN D ( 1 ) ) *1 

IFA$-"S"THENPRINT" {CUR .SU } " :ZDX-ZDX" 
1 

IF KAX<-9THEN HO X-6:PR INT" {GREEN} {SH V 
} A BENE TI SVEGLIARA I ALLE 6":G0SUB1 
470 : GOTOó 30 

IF K A X > - 1 0 THENPRINT" {SH N}ON SI E’ A 
CC ESO IL FIAMMIFERO" : Y - Y - 1 :J-J-1 : GOT 
0585 

Y-Y + 1 : J « J ♦ 1 : G0T055 

KA - INT( 30«RND( 1 ) )♦ 1 : GOTOó 4 5 

KA - INT ( 2 1 * RN D ( 1 ) )*1 

IFKA<-1 OTHENPR INT" { WHITEjSEI FORTUNA 
TO" : Y - Y + 1 : G0T0760 

IFKA>-1 1THENPRINT" { REDJNON SEI FORT U 

NATO" : Y-Y-1 

KA » INT ( 1 0 * RN D ( 1 ) )♦ 1 

IFKA-OTHENPR INT" {SH A } TTENTO UN CUOG 
UARO TI ASSALE" 

IFKA-1THENPRINT"{SH U } N INDIGENO TI 
ASSALE" 



670 IFKA-2THENPR INT" {SH U}NO STRGONE VIE 
NE CONTRO DI TE" 

675 IFKA-3THENPR INT" {SH U}N PITONE TI E' 
VICINO" 

680 IFKA-4THENPRINT"{SH U}N CONTRABANDIE 
RE DI PERLE" 

685 IFKA-5THENPR INT" {SH U}N TAGLIATORE D 
I TESTE VUOLE LA TUA" 

690 IFKA-6THENPRINT" {SH N } E RO COME LA NO 
TTE E’ IL GIAGUARO" 

695 IFKA-7THENPRINT"{SH U}N BOA TI SBARR 
A LA STRADA" 

700 IFKA-8THENPRINT" {SH IJNDIOS DAVANTI 
A TE UNO TI SFIDA" 

705 IFKA-9THENPR INT" {SH U}N BOA CONTRICT 
OR IL SECONDO D'AMERICA" 

710 IFKA-10THENPRINT" {SH D’ANACONDA IL 
TUO PEGGIOR NEMICO" 

715 PRINT" { WHITE) PREMI 1 -SCAPPO : 2- AFFRON 
TO" 

7 20 GETE$ : IFE$<>"1 " A N DE $ < > " 2 " TH EN 7 20 
725 KA- INT( 21 «RND( 1 ) )♦ 1 

730 IFE$«"1 "THENPRINT "BENE CODA RDO { CUR . S 
U } " : J-J-3 : Y-Y-5 :G0T0760 

7 35 IFE $-" 2 "THENPR INT "CORAGGIOSO E {CUR .S 

U}" : FORI- 1 T0 1000 :N EXT: IFZBX -OTHEN 1 3 4 
5 

740 PRINT’MRVS 0N}{SH H}{SH A}{SH I}{SH 
S P C } { SH I } { SH L } { SH S PC } { SH F}{SH U} 
{SH C } { SH I } { SH L } { SH E } . { SH S}{SH P 
} { SH A } { SH R } { SH 1} ! { CUR . SU } " : FO,R I- 1 
T01000:NEXT:ZBX-ZBX"1 
745 IFKA>-10THENPRINT" {SH N } { SH 0}{SH N} 
{SH SPC } { SH C } { SH I } { S H SPC}{SH S}{S 
H E } { SH IHSH SPC } { SH R } { SH I } { SH U} 
{SH S } { SH C } { SH I } { SH T}{SH 0}{SH SP 
C} {CUR.SU}" :FOR 1-1 T0 1000: NEXT: J-J-1 
: G0T07 1 5 

750 IFKA<-9THENPRINT" {SH C}{SH I}{SH SPC 
} { SH S } { SH E } { SH I } { SH SPC}{SH R}{SH 
I } { SH UJJSH S } { SH C } { SH I}{SH T}{SH 
0 } { 6 SPC} {CUR.SU} ":Y-Y + 1 : J « J + 6 

755 : 

760 IFY>- 1 4THEN ZCX-ZCX+1: Y-7 
765 I F Y < - OTHEN ZCX-ZCX-1 : Y-7 
770 IFJ>-1 4THEN ZEX-ZEX+1: J-7 
775 I F J < - OTHEN ZEX-ZEX-1: J-7 
780 IFZCX-0THENZAX-ZAX-2:ZCX-4 
785 IFZEX-0THENZAX-ZAX-2:ZEX-4 
790 IFZHX-0THENZAX-ZAX-2:ZHX-4 
795 G0T0830 
805 GOTO830 

810 IFH0X>-6ANDH0X<-1 7THENCOLOR4 ,8 
812 IFH0X>-1 8ANDHOX<20THENCOLOR4 , 1 3 

8 20 IFH0X>-21 THENC0L0R4 , 1 4 

825 IFHOX -230RHOX<-5 THENC0L0R4 , 1 : GOSUB 
1 445 

827 IFH0X>-6ANDH0X<- 1 7THENCOLOR4 ,8 
830 PRINT "{HOME} {6 CUR. GIU}"; 

835 IF N>0THENPRINTTAB(2)" {WHITE} {SH N}{ 
GREEN } " ; 

840 IF E>0THENPRINTTAB(4)" {WHITE} {SH E}{ 
GREEN } " ; 

845 IF S>0THENPRINTTAB(6)" {WHITE} {SH S}{ 
GREEN}"; 

850 IF 0>0THENPRINTTAB(8)" {WHITE} {SH 0}{ 
GREEN } " ; 

855 PRINTCHR$( 1 3) 

860 PR INT" { GREEN } {HOME} {8 CUR.GIU} {31 SP 
C}" 

865 P R INT " { 2 CUR . SU } " : INPUT" { 3 CUR.DES}{ 
Y E LLOW } { SH C } OSA FAI";I$:IF I$-""TH 
ENG0T0865 
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870 

IF 


0 R I $ » 

. " E " 

OR 1$ « 

’’ S ’’ 0 R I $ * " 0 " 


N875 





875 

IF 

I $ - " N " 

AND 

N > 0 

THEN 

P-N : G0T055 

880 

IF 

I $ - ’’ E " 

AND 

E > 0 

THEN 

P- E : G0T055 

885 

IF 

I$-"S" 

AND 

S>0 

THEN 

P-S : G0T055 

890 

IF 

I$-"0" 

AND 

0>0 

THEN 

P- 0 : G0T055 


895 IFI$-">’’THENG0T01 360 

897 IF I$-"A"THENG0SUB1 600 :G0T055 

900 PRINT" {CUR.SU} { 31 SPC}" 

905 GOTO805 

1345 PRINT” (3 CUR .GIU} NON HAI PIU' MUNIZ 
IONI SEI MORTO” :G0T01 360 
1350 PRINT" { RED}NON HAI PIU' FOR ZA { GREEN 
} " : RETURN 

1355 IFHO$ > « 6 AND H0$<20 THENPR INT ” { YE 
L L 0 W } ” : G0T0805 

1360 W-(H0**60 )+(MMJ*10)+(ZIJ*10000) : 

1 365 QW-Q+W+OG + V I- ( F* 1 0 ) : PR INT" { 6 CUR.G 
IU } { RED } IL TUO PUNTEGGIO E ’ " ; QW 
1370 PRINT" {RVS ON} { YELLOW } G IOCH I ANCORA 
{SH S } . { SH N} {SH DECIDITI" 

1 37 5 GET A $ : IF A $ < > " S " AN D A $ < > " N " THE N 1 37 5 
1380 IFA$-"S"THEN RUN 

1385 IFA$-"N "THENPR INT" {CLR}BYE AVVENTUR 
IERO" : END 


1 390 

Z A J « 

ZAJ-2: 

ZE*-ZE$- 

3 : Z C J - 

ZCS-3 



1 395 

IFZB 

$ < -OTHEN PR INT" 

NON 

HA 

I PIU 

MUN 

IZ 


ION I 

" : A - 4 : 

GOTO 1 435 






1 400 

K A - IN T ( 2 1 * 

RN D ( 1 ) ) + 

1 : ZB % - 

ZB*-1 



1 405 

PR INT" {SH 

H} {SH A} 

{SH 

1} 

{SH SP 

C} { 

SH 


1} { 

SH L|{ 

SH SPC} { 

SH 

F} { 

SH UH 

SH 

C} 


{SH 

1} {SH 

L} {SH E} 

{SH 

SPC} {SH 

S} { 

SH 


p } c 

SH A } { 

SH R} {SH 

1} 

{2 

SH SPC 

} {CUR 


.su} 

" : F OR I 

>1 T02000 

: NE 

XT: 




1410 

IFKA 

<- 8THENPR INT" 

{2 

CUR 

.GIU} { 

SH 

C} 


{SH 

I) {SH 

SPC} {SH 

S}{ 

SH 

E} {SH 

IH 

SH 


SPC 

) {SH R 

} {SH 1} { 

SH 

U} { 

SH S}{ 

SH 

C} 


{SH 

1} {SH 

T} {SH 0} 

{5 

SPC 

} {CUR . 

SU} 

" : 


ZE%- 

KJ 

ZE I ♦ 5 : 

ZAJ-ZA* + 

4 : ZC%- 

ZCX+3 : 

RETUR 

1415 

li 

IFKA 

> 9 THENPRINT" 

{SH 

N} 

{SH 0} 

{SH 

N 


} {SH 

SPC} { 

SH C } { SH 

1} 

{SH 

SPC} { 

SH 

S} 


{SH 

E} {SH 

1} {SH SPC} { 

SH 

R} {SH 

IH 

SH 


U} { 

SH S}{ 

SH C } { SH 

1} 

{2 

SH T}{ 

SH 

0} 


{ CUR 

.SU} " : 

A-A+1 : FOR I- 

1 TO 

1 000 : N 

EXT 


1 420 

IF A - 

1 THEN P 

R I N T " C 0 N 

UN 

BALZO EV 

ITA 

I 


L COLPO" :ZA*-ZA*-1 :G0T01 395 
1425 IFA-2THENPRINT"TI E VICINO STA PER 
BALZARE" : ZA*-ZA*~1 :G0T01395 
1430 IFA-3THENPRINT"UNA ZAMPATA TI FA» U 
NA FERITA GRAVE": G0T01390 
1435 IFA-4THENPRINT"TI STA’ MANG IAN DO { 1 2 
SPC} " 

1440 G0T01360 

1445 A - A + 1 :PRINT"{RED}NON SI VA' SUL FIU 
ME DI NOTTE{ BLUE} ": IFA-4THEN1 455 
1450 ZCJ-ZCJ+1 :ZEJ«ZE%“1 :RETURN 
1455 PRINT" (SH M}{SH SPC}{SH I } { 3 SH SP 
C } { SH S } { SH SPC } { SH P } { SH SPC}{SH I 
} { SH SPC} { SH A } { SH SPC} { SH C } { SH SP 
C} {SH E} {SH SPC} ! ! ! ! " 

1 460 PRINT" {SH CJ’ERA UNO SCOGL IO f L ’ H A I 
URTATO , SE I CADUTO IN { 2 SPC}ACQUA.{ 
SH 0 } TT IMO PRANZO"; 

1465 PRINT" PER ANACONDE COCCODRILLI ECC 
. " : GOT0 1 360 

1470 :ZA*-ZA* + 2:ZI*-ZH+1:ZHX-ZH$-1:F0RI 
-1T03000:NEXT:RETURN 

1480 IFXX-OTHENPRINT" {FLASH 0N}HAI TROVA 


TO L’ARCO D ’ORO" : V I- 1 00000 : XX- 1 : FOR 
I-1T03000:NEXT 

1485 RETURN 

1600 PRINT" {HOME} {8 CUR.GIUHlO CUR.DES} 
";CHR$(27)’'T":J-J-3:Y-Y-3 

1610 PR INT" { HOME }{ RVS ON } { GREEN } * IN IZ IO { 
18 SPC} {BLUE} {RVS ON}{SH R}10{2 SPC 
} { RVS OFF} ’’ ; 

1620 PRINT" {RVS ON } { GR E E N } { 25 SPC}{BLUE} 
{SH N }EGRO{ RVS OFF}"; 

1625 PRINT” {RVS 0N}{GREEN}{6 SPC}*JIVARO 
{13 SPC } { BLUE } {4 SPC} {RVS OFF}"; 

1630 PRINT" {RVS ON }{ GREEN }{ 26 SPC}{BLUE} 
{ 4 SPC } { RVS OFF } " ; 

1635 PRINT" {RVS ON } { GREEN } { 1 7 SPC}{2 CBM 
+ } { 5 SPC } { BLUE } {5 SPC } {GREEN } "; 

1640 PRINT" { RVS ON }{ GREEN } {CBM D}{CBM F 
} { 4 SPCH3 CBM + } { 1 3 SPC } { BLUE } {4 S 
PC} { GREEN } { 2 SPC} " ; 

1645 PRINT" {RVS 0N}{GREEN}{2 SPC}{2 CBM 
U } { 1 2 SPC} [2 CBM + } { 4 SPC } { BLU? } { 4 
CBM E} {GREEN} {3 SPC}"; 

1 650 PR INT " { RVS 0N}{GREEN}{3 SPC}{4 CBM 
+ } { 6 SPC} {BLUE} {SH R } IO DELLE {SH A 
} MA Z ZON I "; 

1655 PRINT" {RVS ON } {GREEN 


+ } {4 SPC} {BLUE} {2 SPC 
C } " ; 

1 660 PR INT" { RVS ON 
{3 SPC} {GREEN 


SPC} { 3 CBM 
GREEN } { 1 6 SP 


{ GREEN } { 1 0 SPC} { BLUE } 
{14 SPC} {BROWN} {4 CBM 


1 665 P R INT " { RVS 0N}{BLUE}{13 SPCHGREEN} 
{12 SPC} {BROWN} {5 CBM + }"; 

1670 PRINT" { RVS ON } { GR E E N } { 1 5 SPC}*KARAY 
A { 4 SPC} {BROWN } { 4 CBM + } " ; 

1675 PRINT" {RVS ON } { GREEN } { 1 7 SPC}{4 CBM 
♦} {9 SPC}"; 

1 680 PR INT" { RVS ON }{ GREEN }{ 1 1 SPC} {5 CBM 
♦ } { 1 4 SPC} " ; 

1685 PRINT" {RVS 0N}{GREEN}{3 SPC}{2 CBM 
+ } PREM I B A R R A { 6 SPC}{3 CBM + }{5 SPC 
} " :G0T05000 

2000 PRINT" {HOME} { 1 2 CUR.GIU}{8 CUR.DES} 
";CHR$(27)"T" 

2005 PRINT "BENE AVVENTURIERO CON QUESTO{ 
2 SPC} RITROVAMENTO HAI RAGGIUNTO IL 
TUO SCOPO " 

2010 PRINT" SCENDI DAL TUNNEL A SUD, DOP 
OD ICHE ’ VEDI FRA LA VEGETAZIONE UN 
PAESE . " 

2015 PRINT" {SH A } RR IDEDE RC I ALLA PROSSI 
MA AVVENTURA CHISSÀ DOVE 0 QUANDO ” 

2020 PRINT" PREMI BARRA" 

5000 GETA$ : IFA$- " "THEN5000 

50 01 I F A $ - " "THENPRINTCHR$(19)CHR$(19):R 
ETURN 

5002 IF A $ < > ’’ "THEN5000 


24 
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ARCHIVIO 


Q uanto ci accingiamo a presentare è un pro- 
gramma che consente di gestire un archivio 
di dati su cassetta. E facilmente modificabile, e 
adattabile alle proprie esigenze, cambiando sia i 
nomi dei campi, che il loro numero. 

Le operazioni possibili per gestire un archivio di dati 
sono le seguenti: 

a) creazione ex novo dell'archivio, 

b) aggiornamento dell'archivio: 
bl) cancellazioni di record, 
b2) aggiunta di nuovi record, 
b3) modifica di record già esistenti, 

c) lista di tutto o parte dell'archivio. 

Queste operazioni sono necessarie per qualunque 
archivio; inoltre ogni archivio può essere utilizzato 
per altri scopi, che dipendono dalle specifiche esi- 
genze inerenti ai soggetti archiviati. 

Quello che segue è formato da record di 6 campi 
ciascuno, relativi a un'agenda di indirizzi: viene ri- 
spettato l'ordine alfabetico in base ai due primi 
campi; in conseguenza i dati, nella fase di creazio- 
ne iniziale del file devono essere forniti rispettando 
tale ordine. Il programma rifiuta nominativi fuori or- 
dine, come pure nominativi uguali. 

All'inizio viene proposto un menù per scegliere tra 
le tre funzioni principali: CREAZIONE, AGGIOR- 
NAMENTO, STAMPA. Viene chiesto quanti record 
si vogliono trattare, per predisporre il dimensiona- 
mento delle variabili. 

La funzione di AGGIORNAMENTO inizia trasferen- 
do completamente in memoria il file esistente; poi si 
articola in tre fasi: 

1) modifica in memoria dei record già esistenti, 

2) cancellazione in memoria, ponendo spazi al po- 
sto del primo campo, nei record da eliminare dal 
file, 

3) aggiunta, durante la riscrittura del file, di even- 
tuali nuovi record, che devono essere forniti in or- 
dine. 

COMMENTO AL PROGRAMMA 

Il programma è organizzato in modo che dopo aver 
preso visione di un quadro video, si deve premere 
un tasto per proseguire; la cosa è realizzata con il 
sottoprogramma delle linee 319/323. 

Linee. 1/5: commenti. 

Linea 7: PR è il "dn" della periferica di stampa. Ab- 
biamo usato 3 per far uscire sul video ma si può 
sostituire il dn per la stampante. Nel caso sia dispo- 


nibile una stampante, si può migliorare il program- 
ma introducendo un contatore per il numero delle 
linee di stampa, in modo da cambiare foglio al mo- 
mento giusto. 

Per leggere più comodamente sul video i dati, du- 
rante la stampa conviene tenere premuto il tasto 
CMB LOGO. 

Linea 9: NF è il numero logico del file di stampa. Per 
"Ifn" abbiamo usato 4. In realtà per fare uscire i 
dati sul video potevamo evitare di apcirlo come file, 
lo abbiamo fatto per rendere più semplice il trasferi- 
mento dell'uscita su una stampante. 

Linea 1 1 : NC è il numero dei campi del record; 
viene usato per definire le variabili con indice e per 
gestire i cicli. 

Linee 13/15: dimensionamento del vettore di strin- 
ghe D$ che deve contenere le descrizioni dei campi 
del record, e del vettore di stringhe 1$, che deve 
contenere i dati da scrivere nel record, quando 
questi vengono letti dalla tastiera. 

Linea 17: CH$ contiene il carattere RETURN, da 
usare come separatore nella scrittura dei campi; 
usiamo sempre CHR$ (13) per non avere problemi 
con la lunghezza del record. SP$ contiene 3 spazi. 
Linee 19/25: le due frasi DATA contengono le de- 
scrizioni dei campi, che vengono trasferite nel vetto- 
re DS con la linea 25. Se si aumenta il numero dei 
campi NC, si possono aggiungere altre linee 
DATA. 

Linee 27/41 : presentazione del menù principale per 
scegliere la funzione da svolgere. La linea 39 accet- 
ta la risposta, la 41 la controlla e accetta solo: 1, 2, 
3 e 9. 

Linea 43: se R=9 (FINE) viene eseguita la subrouti- 
ne che chiede di riavvolgere il nastro se necessario 
e il programma si ferma. 

Linee 45/55: viene chiesto il numero totale di record 
da elaborare, N. Esso serve per predisporre la zona 
per memorizzare il file in caso di aggiornamento. 
Questo dato è importante e quindi ne viene chiesta 
conferma. 

Linee 57/59: viene dimensionata la matrice di strin- 
ghe MC$, di N righe e NC colonne per contenere il 
file, se si devono operare aggiornamenti. 

Linea 61 : scelta della funzione principale in base al 
valore di R. 

Linee 63/89: fase di creazione ex novo del file; essa 
si esegue la prima volta. Alla 67 vengono eseguiti i 
sottoprogrammi per preparare il nastro, richiedere il 
nome del file e aprire il file in scrittura. Alla 69 ven- 
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gono poste a stringa nulla le due variabili LC$ e 
LN$, che vengono usate per controllare la sequen- 
za dei record caricati in base ai primi due campi. 
Poi inizia un ciclo, da percorrere al massimo N vol- 
te, per caricare i record richiedendo i dati dalla ta- 
stiera. Il sottoprogramma in 21 1 legge i nuovi dati 
dalla tastiera. Se ritorna con SW<>0, questo signi- 
fica che il caricamento è terminato, allora viene 
conservato in K 1 il numero dei record scritti, che 
può anche essere inferiore ad N, e si va alla fine di 
questa fase. Se è stato caricato un nuovo record, ne 
viene controllata la sequenza rispetto al preceden- 
te; se va bene il record viene scritto con il sottopro- 
gramma in 221 e viene chiesto un nuovo record. Se 
la sequenza non va bene questo viene segnalato; il 
record non viene accettato e potrà essere aggiunto 
in una successiva fase di aggiornamento del file. In 
87 e 89 viene segnalato quanti record sono stati 
caricati e in quale file e il programma viene rilancia- 
to con RUN. 

Linee 91/1 1 1 : fase di stampa. Alla 95 viene aperto il 
file di stampa, richiesto di montare il nastro, richie- 
sto il nome del fiile e aperto per leggere. Poi vengo- 
no letti i record uno alla volta con il sottoprogram- 
ma in 297, stampati ponendo sulla prima riga i primi 
due campi e sulla seconda gli altri quattro. Nel caso 
si aumenti il numero dei campi, bisogna modificare 
le istruzioni alle linee 103 e 105. Viene controllata la 
fine del file analizzando la variabile riservata di sta- 
to ST, trasferita al momento della lettura in FS, e, 
quando il file è terminato, la fase si arresta e dopo i 
soliti messaggi viene rilanciato il programma con 
RUN. 

Linee 1 13/129: inizia la fase di aggiornamento. Co- 
me prima cosa viene trasferito in memoria, nella 
matrice MCI, il file, di cui è stato chiesto il montag- 
gio, il nome, ed è stato aperto in lettura. Viene se- 
gnalato se il file è più lungo del previsto numero di 
record, e in questo caso si ha uno STOP. Si consi- 
glia di ripartire dando per N un numero adeguato. 
Alla fine del caricamento viene segnalato il numero 
effettivo dei record letti. L'aggiornamento avviene in 
fasi successive; prima l'eventuale modifica dei re- 
cord presenti in memoria, poi l'eventuale cancella- 
zione di qualche record, e poi il caricamento dei 
nuovi record, durante la fase di riscrittura del file. 
Linee 131/147: fase modifica record. Se non ci sono 
modifiche passa alla fase seguente. Alla 1 39 chiede 
i primi due campi del record da modificare con il 
sottoprogramma in 375; se al ritorno SW<>0, si- 
gnifica che non ci sono più modifiche. Alla 141 ri- 
cerca in memoria il record voluto, se non lo trova 
SWoO e ne chiede un altro. Legge dalla memoria 
gli altri campi del record selezionato e propone sul 
video tutto il record chiedendo quali campi si vuol 
modificare. 

Non bisogna modificare i primi due campi, perché 
altrimenti si altera l'ordine dei record. Il programma 
riscrive in memoria solo i campi dal terzo in avanti, 
quindi anche se sono stati modificati i primi due, 
essi non vengono memorizzati. 

Per modificare i primi due campi bisogna cancellare 


il record e poi riscriverlo. 

Linee 149/161 : fase cancellazione. Come nella fase 
precedente vengono chiesti i primi due campi per 
individuare il record ed esso viene ricercato. Se es- 
so viene trovato, vengono scritti degli spazi al posto 
del primo campo; in fase di riscrittura, se il primo 
campo contiene spazi, il record non viene scritto. 
Linee 163/171: viene predisposta la riscrittura del 
file su nastro, chiedendo di montare il nastro e qua- 
le nome registrare in apertura. Alla 167 vengono 
preparati i seguenti indicatori: 

SW=0, se diventa 1 significa che non ci sono più 
nuovi record da aggiungere, 

FF=0, se diventa 1 significa che sono stati già scritti 
tutti i record della matrice MC$, 

K1=0, contatore dei record che si scrivono, 

Nl = l, puntatore alla posizione del record nella 
matrice MC$. 

Linee 173/175: richiesta se ci sono inserimenti. 
Linee 177/209: fase inserimento e riscrittura. 

Alla 181 viene chiesto un nuovo record; se viene 
fornito, vengono scritti sul nuovo file tutti i record di 
MC$, che precedono nell'ordinamento il nuovo re- 
cord, e poi viene scritto il nuovo record. Non sono 
accettati record doppi. Quando MC$ è esaurito si 
procede solo con nuove acquisizioni; quando i 
nuovi record sono terminati si esaurisce MC$, se 
FF=0. La fase di riscrittura è la più complicata di 
tutto il programma, dato che vogliamo mantenere 
l'ordinamento dei record. Alla fine viene segnalato 
quanti record si sono scritti e il nome del file. 

Linee 211/219: sottoprogramma lettura nuovi dati 
da tastiera, servendosi dei sottoprogrammi in 325 e 
337. 

Linee 221/229: scrittura nuovo record su nastro; i 
dati sono quelli ricevuti da tastiera. 

Da notare che se un dato stringa ha lunghezza ze- 
ro, esso viene sostituito con una stringa di uno spa- 
zio. Questo è necessario perché sul nastro venga 
registrato un campo valido; la stringa nulla viene 
saltata in fase di lettura e produce uno scompenso 
nella struttura dei record, ognuno dei quali deve 
avere un numero prefissato di campi. Ricorda che 
se leggi da tastiera una stringa formata da uno o 
più spazi, essa viene conservata come stringa nulla; 
questo non succede se usi SHIFT-spazio. Se, invece 
scrivi A$=" ", la stringa A$ ha lunghezza 1 e quan- 
do la scrivi su nastro lo spazio viene registrato e 
conta come un campo. 

Linee 231/251 : ricerca posizione per il nuovo record 
in MC$. Viene segnalato se i dati sono fuori ordine 
o sono doppi. Se tutto bene vengono trasferiti sul 
file i record di MC$ che precedono quello nuovo. 
Linee 253/263: viene portata su file l'ultima parte di 
MC$. 

Linee 265/271: richiesta di preparazione nastro. 
Linee 273/277: richiesta nome file. 

Linee 279/283: apertura file per scrivere. 

Linee 285/289: apertura file di stampa. 

Linee 291/295: apertura file per leggere. 

Linee 297/301: lettura record da nastro. 

Linee 303/31 1 : scrittura record prelevato da matrice 
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MC$, con modifica eventuali stringhe nulle. 

Linee 313/317: messaggio record fuori ordine. 
Linee 319/323: attesa pressione tasto per prose- 
guire. 

Linee 325/335: ingresso nuovi dati da tastiera; ac- 
cetta anche campi vuoti. 

Linee 337/349: visualizzazione dati, richiesta con- 
ferma o correzione. 

Linee 351/355: richiesta di un campo. 

Linee 357/363: visualizzazione dati di un record. 
Linee 365/373: messaggio finale di ogni fase. 

Linee 375/385: richiesta dati primi due campi, pone 
SW=1 se si risponde con * al primo campo. 

Linee 387/401 : ricerca record in MC$. 

Nel programma ARCHIVIO abbiamo usato la tec- 
nica dei sottoprogrammi, cioè abbiamo scritto sotto 
forma di sottoprogramma tutti i gruppi di istruzioni 
che devono essere eseguite più di una volta; questa 
tecnica, oltre che portare a un risparmio di memo- 
ria, evita errori di programmazione. 

ELENCO VARIABILI 

PR=3, dn periferica stampa 
NF=4, Ifn file di stampa 
NC=6, numero campi del record 
D$(NC), descrizioni campi record 
l$(NC), dati del record 

CH$=CHR$(13), carattere separatore RETURN 

SP$, costante contenente 3 spazi 

R$, stringa per risposte 

R, numero della scelta 

N, numero record 

K, variabile controllo ciclo 

MC$(N,NC), matrice per contenere i record in me- 
moria 

LC$, primo campo del record precedente 
LN$, secondo campo del record precedente 
SW, flag per controllare se è stato fornito un nuovo 
record 

Kl, numero record caricati 
NF$, nome del fiile 

FS, per conservare la parola di stato ST 
ST, parola di stato 
J, variabile controllo cicli 
FF, controllo per record MC$ 

NI, puntatore a MC$ 

U, controllo record da inserire uguali a record MC$ 

La gestione del programma è molto semplice: 
vengono evidenziati messaggi di richiesta sul video 
e devi rispondere, 

quando il quadro video è fisso, e la cassetta non è 
attiva, per proseguire bisogna premere un tasto, 
per uscire dalle fasi di richiesta dati bisogna rispon- 
dere con * al primo dato, 

bisogna stare attento al cambiamento del nastro o 
al suo riavvolgimento per non perdere registrazioni. 
Per adattare ARCHIVIO a particolari esigenze, si 
possono apportare le seguenti modifiche: 
porre PR a un nuovo valore, per usare una stam- 
pante, 


modificare NC e modificare le linee DATA per le 
descrizioni dei campi. 

Resta comunque un programma che mantiene i re- 
cord in ordine in base ai primi due campi; questa è 
una cosa più difficilmente modificabile, si potrebbe 
però mantenere uno dei campi sempre uguale a 
SHIFT-spazio e quindi ordinare solo uno. 

Inoltre ARCHIVIÒ non accetta record doppi. 

E possibile aggiungere al programma altre parti, 
per ottenere altre funzioni, e fare uso di alcuni dei 
sottoprogrammi di uso generale già presenti, 
il programma ARCHIVIÒ lascia liberi 7807 byte per 
le variabili; bisogna fare un po' di conti per decide- 
re il massimo numero di record gestibili con MC$. 


I REM FILESEQ 

3 REM CREAZIONE E GESTIONE FILE SEQUENZI 
ALE 

5 REM RECORD IN ORDINE PRIMI DUE CAMPI 
7 PR»4:REM DN PERIFERICA DI STAMPA 
9 NF-4:REM NUMERO LOGICO FILE DI STAMPA 

II N C » 6 : REM NUMERO CAMPI DEL RECORD 
13 REM VETTORI DESCRIZIONI E DATI 
15 DIMD$(NC) , I$(NC) 

17 CH$*CHR$( 1 3) : S P $ - " { 3 SPC}" 

19 REM DESCRIZIONI CAMPI 
21 DATA COGNOME, NOME , IN D I R I Z Z 0 
23 DATA CAP, CITTA 1 * 3 4 5 * 7 * 9 , TEL. 

25 F0RK*1T0NC : READD3 ( K ) :NEXTK 
27 REM SCELTA OPERAZIONI 

29 PR INT" (CLR } { 2 CUR.GIU}{10 SPCjSCELTA 
OPERAZIONE { 2 CUR.GIU}" 

31 PRINTTAB(IO)" 1 ) CREAZIONE’* 

3 3 PR INTTAB ( 1 0 ) ”2 ) AGGIORNAMENTO” 

35 PRINTTAB(IO)” 3) STAMPA" 

37 PR INTTAB ( 1 0 ) "9 ) F INE { CU R . G IU } " 

39 GET/R$:R=VAL(R$) 

4 1 IFR< 1 OR ( R>3ANDR<>9 )THEN39 
43 IFR-9THENGOSUB365 :STOP 

45 PR INT" { CLR } { 4 CUR.GIU}{4 SPCjQUANTI R 
ECORD TRATTI IN TUTTO," 

47 PR INT" { 4 SPC } SE IL FILE NON ESISTE 0, 

49 P R I N T " { 4 S PC } SE IL FILE ESISTE GIÀ’?" 
51 INPUT" {CUR.GIUjNUMERO RECORD: ";N 
53 INPUT "CONFERM I (S/N): ";R$ 

55 IFR$0"S"THEN45 

57 REM DIMENSIONAMENTO MEMORIA PER N REC 
ORD 

5 9 D I M M C $ ( N , N C ) 

61 ON R GOTO 63,113,91 
63 REM 

65 REM CREAZIONE FILE 
67 GOSUB267 :GOSUB275 :G0SUB26l 
69 LC$-’"’:LN$-"" :K1 ®N :F0RK-1T0N 
71 G0SUB211 

7 3 1FSW OOTHENK1 -K-1 : K-N : C0T085 
75 IFI$( 1 ) >LC$THENo 1 

7 7 IF 1$ ( 1 ) = L C $ T H E N 1F 1$ (2 )>LN$THEN3l 
79 G0SUB31 3 : G0SUB31 9 : G0T07 1 
81 LC $ = I $ ( 1 ) : LN$= 1$ (2 ) 

83 G0SUB221 
85 NEXTK : CLOSE 1 

87 PR INT" ICUR.GIUJFINITO C A R IC AMENTO { 3 S 
PC } " ; Kl ; " RECORD" 

89 PR INT" {CUR.GIU }F ILE: " ; NF$ : GOSU B 3 1 9 : G 
0. U B 36 5 : RUN 

9 1 REM 

93 REM STAMPA FILE 

95 GOSUB285:GOSUB267: G0SUB275 : GOSU 82 9 3 
97 PRINT#NF , "LISTA FILE " ; NF$ : PR INT#NF : P 
RINT0NF 
99 G0SUB29 9 


27 





PROGRAMMA 



101 PR1NT//NF, 1$(1 ) ;SP$; I$(2) 

103 PRINT#NF, I $ ( 3 ) ; S P $ ; I $ ( 4 ) ;SP$; I $ ( 5 ) ;S 
P$ ; 1$ ( 6 ) 

1 05 PR INT//NF : PRINT#NF 
1 07 IFFSOÒ4THEN99 

109 CL0SE1 : CLOSENF : PR INT" { 2 CUR.GIU}FINI 
T 0 LISTA” 

111 GOSUB365:RUN 
1 1 3 REM 

115 REM AGGIORNAMENTO FILE 
117 PR INT" {CLR } { 2 CUR . G IU } AGG IORN AMENTO 
FILE" 

119 PRINT"{2 CUR.GIUJMONTA NASTRO VECCHI 
0" 

121 G0SUB31 9 : GOSU 927 5 :GOSUB291 : F0RK-1T0N 
123 FORJ-1 TONC : INPUT // 1 , MC$ ( K , J ): NEXTJ 
1 25 IFST-64THENCLOSE 1:K1-K:K-N:NEXTK:G0T 
'0129 

127 NEXTK : PR INT" { CUR . GIU } F ILE SUPERA NUM 
.MASS. REC." ; N : STOP 

129 PR INT" {CUR . GIU }LETT I ";K1;" RECORD": 
SW-0 : N-K1 

131 P R IN T " { 2 CUR.GIUjVARIAZIONI S/N " : IN 
PUTR$ 

1 33 IFR$<>"S" THEN1 49 

137 REM MODIFICA RECORD 

1 39 SW-0 : GOSUB 37 5 : IFSWOOTHEN1 4 9 

141 SW = 0 : GOSU B 38 7 : IFSWOOTHEN 1 35 

1 4 3 FORJ-3TONC : 1$ ( J )=MC$ ( K1 , J ) ; NEXTJ 

145 GOSUB357 : GOSUB337 

147 FORJ-3TONC :MC$ ( K1 , J )» 1$ (J ) : NEXTJ : GOT 
01 35 

149 PRINT" {CUR. GIUjCANCELLAZIONI S/N ":I 
N P U T R $ 

1 51 IFR$<>"S"THEN1 63 

155 REM CANCELLAZIONE RECORD 

157 SW=0:G0SUB375: IFSW < > OTHEN 1 6 3 

159 SW = 0 : GOSU B 38 7 : IFSWOOTHEN 155 

1 6 1 MC$ ( K1 , 1 ) -SP$ : G0T01 55 

165 r.EM RISCRITTURA FILE 

167 SW-0:FF-0:K1=0:N1=1 

169 PR INT" {CUR .GIU} PREPARA NUOVO NASTRO" 
: GOSUB267 

1 7 1 GOSUB275 : G0SUB281 

173 PRINT" {CUR. GIU} INSERIMENTI S/N ":1NP 
UT R $ 

1 75 IFR$O"S"THEN201 

179 REM INSERIMENTO NUOVO RECORD 
181 GOSU B21 3 : IFSWOOTHEN 1 9 9 
183 IFFF-1THEN1 89 
185 GOSU B2 3 3 

187 IFUODTHENU-O : G0T01 93 

189 IF 1$ ( 1 ) >LC$GOT01 95 

191 1FI$ ( 1 ) = LC$ANDI$ (2 ) >LN$THEN 1 95 

193 GOSUB31 7 : G0SUB31 9 : G0T01 81 

195 G0SUB221 :LC$=I$(1 ) :LN$-1$(2) 

197 K 1 - K 1 + 1 : GOT0 1 8 1 
199 IFFF- 1 THEN203 
201 G0SUB25 3 

203 PRINT" {CUR. GIU}FINITO AGGIORNAMENTO" 
205 PRINT "SCRITT I ";K1;" R ECOR D " : CLOSE 1 
207 PRINT "FILE: ";NF$ 

209 GOSUB31 9 :GOSUB365 : RUN 

213 REM LETTURA NUOVI DATI 

215 SW-0 :GOSUB325: IFSW- 1THEN RETURN 

217 GOSU B 3 37 

219 RETURN 

223 REM SCRIVE NUOVO RECORD SU NASTRO 
225 FORJ-1 TONC 

227 IFLEN ( I$(J ) )-0THEN I $ ( J )-" " 

229 PR INT //1,I$(J);CH$;:NEXTJ: RETURN 
233 REM RICERCA POSIZIONE NUOVO RECORD 
235 U-0: FORK-N1 TON : IFMC$(K, 1 )=SP$THEN249 
237 IFMC$ ( K ,1)<I$(1)THEN247 

2 39 I FMC $ ( K , 1 ) = 1$ ( 1 ) AN DMC$ ( K , 2 ) < 1$ ( 2 ) TH E 

N 24 7 


24 1 I F M C $ ( K , 1 )-I$(1 )ANDMC$(K,2)-I$(2)THE 
N 2 4 5 

24 3 NI = K :K-N : NEXTK: RETURN 
245 U-1 : PRINT "DATI UGU A L I " : GOSU B 3 1 9 : GOTO 
243 

24 7 GOSU B 30 3 : K1 -K1 + 1 : LC$-MC$ ( K , 1 ) : LN$-MC 

$ ( K , 2 ) 

249 NEXTK 251 FF- 1 : RETURN 
255 REM TERMINA SCRITTURA FILE 

25 7 IFN1 =NANDFF= 1 THE N RETURN 

259 FORK-N 1 TON : IFMC$ ( K , 1 ) =SP$THEN263 
261 GOSUB305 :K1 -K1 +1 
263 NEXTK: RETURN 

267 REM RICHIESTA PREPARAZIONE NASTRO 
269 PRINT" {CUR . G I U } M 0 N T A N ASTRO " : GOSUB 3 1 9 
271 RETURN 

275 REM RICHIESTA NOME FILE 
277 INPUT" {CUR. GIU1NOME FILE " ;NF$:RETUR N 
281 REM APERTURA FILE PER SCRIVERE 
28 3 OPEN 1 ,1,2 ,NF$ : RETURN 
287 REM APERTURA FILE DI STAMPA 
289 OPENNF , PR : RETURN 
293 REM APERTURA FILE PER LEGGERE 
295 OPEN1 ,1,0 , NF$ : RETU RN 
299 REM LETTURA RECORD DA NASTRO 
301 FORJ» 1 TONC : INPUT/M , 1$ ( J ) : NEXTJ : FS-ST 
: RETURN 

305 REM SCRITTURA RECORD NASTRO DA VETTO 
RI 

307 FORJ - 1 TONC 

309 IFLEN(MC$(K,J ) )«OTHENMC$(K,J )-" " 

311 PRINT#1,MC$(K,J);CH$;:NEXTJ:RETURN 
315 REM MESSAGGIO FUORI ORDINE 
317 PRINT" {CUR.GIU}FUORI ORDINE "I$(1)SP 
$ 1$ (2 ) : RETURN 

321 GET/A$ : IF A $ - " " TH EN 32 1 : REM ATTESA TAS 
TO 

323 RETURN 

327 REM INGRESSO NUOVI DATI 
329 FORJ-1TONC: I $ ( J ) - " ":NEXTJ 

331 PR INT" {CLR} " ; : J-1 : GOSU 6351 

333 IF 1$ ( 1 ) = "*"THENSW=1 : RETURN 

335 FORJ-2TONC : GOSUB351 : NEXTJ : RETURN 

339 REM CONFERMA DATI E CORREZIONE 

341 PRINT" {CUR. GIU JCONFERMI S/N":INPUTR$ 

343 IFR$="S" THE N RETURN 

345 J N P U T " Q U A L E CAMPO ";J 

346 IFJ< 1 ORJ>NCTHEN345 

347 PR INTD$ ( J ) " " ; : I $ ( J ) = " ":INPUTI$(J) 
349 GOSUB359 :G0T0339 

351 REM RICHIESTA CAMPO 

353 PRINTJ;" " ; D $ ( J ) ; " ";:I$(J) = " " 

355 INPUT 1$ ( J ) : RETURN 
359 REM STAMPA DATI RECORD 
36 1 PR INT" {CLR}” ; : FORJ- 1 TONC 
363 PRINTJ;" " ; D $ ( J ) ; " " ; I $ ( J ) : N EX T J : R ET 
URN 367 REM ULTIMO MESSAGGIO 
369 PR INT" { CLR } { 4 CU R . G IU } R IA V VO LG I IL N 
ASTRO" 

371 PR INT" SE NECESSARIO" 

373 G0SUB3 1 9 : RETURN 

377 REM RICHIESTA PRIMI DUE CAMPI 

379 PRINT "RISPONDI * PER{5 SPC}USCIRE" 

380 I $(1 )«"": I $ ( 2 ) » " " 

381 PR IN TD$ ( 1 ) ; : INPUTI$(1 ) 

38 3 IF 1$ ( 1 )-"*"THENSW-1 : RETURN 
385 PRINTD$(2) ; : INPUTI$(2) :RETURN 
389 REM RICERCA RECORD 

391 FORK-1TON 

39 3 IFMC $ ( K , 1 ) - I $ ( 1 )ANDMC$(K,2)=I$(2)THE 

N 4 0 1 395 NEXTK :SW»1 

397 PRINT" {CUR. GIUJNON TROVATO ";I$(1);S 
P$ ; 1$ ( 2 ) 

399 GOSUB31 9 : RETURN 

401 K1-K:K-N:NEXTK:RETURN 




LE ROUTINE 
DELLO SCROLL 
E I LORO 
SEGRETI 


Trod. ed odott. S. Albarelli 

— eco come sfruttare le routi- 
_ nes del sistema operativo 
dedicate allo scroll dello schermo 
per manipolare in modo facile e 
veloce il contenuto dello schermo 
e rendere belli e funzionali i propri 
programmi. 

Le istruzioni e le brevi subroutines 
presentate funzionano, sul Ciò e 
sul Plus/4. 

Quando scrivete sullo schermo 
del vostro computer e arrivato al- 
l'angolo in basso a destra, tutte le 
lettere presenti sullo schermo si 
muovono verso l'alto. Tutto ciò 
non vi meraviglia, perché è una 
cosa che il computer esegue re- 
golarmente, ma in realtà, è una 
cosa molto complessa. 

Il computer, per eseguire lo scroll 
dello schermo utilizza delle routi- 
nes del sistema operativo per co- 
piare delle linee dello schermo e 
cancellarle. 

Queste subroutine del sistema 
operativo sono sempre a disposi- 
zone dell'utente e possono essere 
ultizzate per mille altri scopi nei 
propri programmi. 

LA DIFFERENZA TRA LINEE DI 
SCHERMO E LINEE LOGICHE 

Il Plus/4 ha uno schermo di 40 co- 
lonne e 25 righe. 

Ognuna delle 25 righe è una "li- 
nea di schermo", inizia dal bordo 
sinistro dello schermo e termina al 
bordo destro. 

Quando si digita un programma, 
si possono inserire in una linea di 
programma fino a 80 caratteri. 
Queste linee, dette anche linee di 
programma, vengono invece de- 
finite come "’inee logiche". 

Le linee logiche possono occupa- 
re più di una linea .di schermo 
quando si lista un programma. 



LO SCROLL VERSO L'ALTO 

E possible far eseguire al compu- 
ter la routine di scroll verso l'alto 
digitando la seguente SYS seguite 
dal tasto RETURN: 

SYS 57078 

Questa SYS fa muovere verso l'al- 
to una sola linea sul Plus/4 e il 
C16. 

Sul CI 6 e sul Plus/4 lo scroi avvie- 
ne sempre su una sola linea. 


COME CANCELLARE LE LINEE 

Quando il computer ha copiato 
tutte le linee, termina lo scroll can- 
cellando l'ultima linea dello 
schermo. 

Ecco le SYS che vi permettono di 
cancellare qualsiasi linea: 

POKE205,LN:SYS57035 

LN è in numero della linea da 
cancellare (la prima linea dello 
schermo è la linea 0). 

Sul Ciò e il Plus/4 queste istruzioni 
agiscono sulle linee logiche. 

CONTROLLARE IL CURSORE 

Molto spesso è utile controllare la 
posizione del cursore e poterla 
modificare. Ecco le istruzioni che 
permettono di farlo: 

Per sapere in che posizione si tro- 
va il cursore: 

POKE2037,PEEK(2037)OR 

:1SYS65520: 

R=PEEK(2035):C=PEEK(2036) 

Per muovere il cursore in una data 
posizione: 

POKE2035,R:POKE2036,C: 

POKE2037,PEEK(2037) 

AN D254 : SYS65520 


In tutti i casi la variabile C contie- 
ne la colonna e la variabile R la 
riga. La posizione di Home, cioè 
nell'angolo in alto a sinistra è 
C=0 e R=0. 

LE APPLICAZIONI 

Questi trucchi possono essere uti- 
lissimi se applicati ai programmi 
di vostra creazione. 

In un word processor può essere 
utile copiare linee dello schermo 
in altre posizioni, e attuare uno 
scroll sia verso l'alto che verso il 
basso. 

In qualsiasi gioco, dagli space in- 
vaders al gioco di macchinine, più 
essere utile lo scroll verso il basso 
per far muovere la pista verso 
l'automobilina, o spostare gli alie- 
ni verso il pianeta. 

Insomma, utilizzando^ questi sem- 
plici trucchi potrete dare un tocco 
raffinato e simpatico a tutti i vostri 
programmi. 





COME POTER 
INVIARE ALLA 
STAMPANTE I DATI 
VISUALIZZATI DAI 
PROPRI 
PROGRAMMI 


di S. Albarelli 

Q uando si utilizza qualsiasi 
programma che median- 
te complessi algoritmi calcola ta- 
belle contenenti grandi quantità 
di informazioni delle quali biso- 
gna prendere nota, sarebbe mol- 
to più comodo poter inviare diret- 
tamente le tabelle alla stampante 
per evitare di trascrivere i dati che 
altrimenti verrebbero persi. 



Questo articolo vi spiega come 
poter modificare i vostri program- 
mi in modo che inviino i dati che 
normalmente dovrebbero visua- 
lizzare sullo schermo alla stam- 
pante. 

Caricate il programma da modifi- 
care in memoria e aggiungete 
questa piccola subroutine (rinu- 
merando le linee se già ne esisto- 
no con questi numeri di linea); 
1000 OPEN 4,4,0 
1 010CMD4 
1020 RETURN 

Dovete chiamare con un GOSUB 
1000 questa subroutine prima che 
vengano eseguite le istruzioni 
PRINT che visualizzano i dati che 
vi interessa mandare alla stam- 
pante. 

Questa subroutine invia alla 


stampante i dati nel formato 
MAIUSCOLE/GRAFICI. Se i dati 
da stampare sono in MAIUSCO- 
LE/MINUSCOLE, dovete cambia- 
re la linea 1000 in: 

1000 OPEN 4,4,7 
Il comando CMD 4 in linea 1010 
serve a segnalare al computer di 
inviare tutti i dati che normalmen- 
te invia allo schermo alla periferia 
del file 4 (in questo caso la stam- 
pante). 

Quando il programma raggiunge 
la linea nella quale termina la vi- 
sualizzazione dei dati che si vo- 
gliono inviare alla stampante, è 
necessario chiamare con un Go- 
sub 2000 questa seconda subrou- 
tine che ripristina la visualizzazio- 
ne sullo schermo: 

2000 PRINT#4 
2010 CLOSE4 
2020 RETURN 

Per aggiungere delle subroutine 
che svolgano questo stesso com- 
pito con altri tipi di stampanti, rife- 
ritevi al manuale della stampante 
in questione per sapere quali co- 
mandi utilizzare. 



Laboratorio « 



Grande Enciclopedia Jackson di Elettronica Pratica 


Laboratorio- di Elettronica è la prima grande 
opera teorico-pratica di Elettronica del 
Gruppo Editoriale Jackson: la vera e propria 
enciclopedia-laboratorio, in cui il lettore 
troverà sia le nozioni teoriche per 
im padronirsi perfettamente della t 

ampie sperimentazioni Pratiche- 
Laboratorio di Elettronica da o qq i in edicola , 
è uno strumento utilissimo sia per 
il principiante, sia per l’hobbista esperto, 
per comprendere a fondo il mondo 
dell'Elettronica e dei microcircuiti. 


52 fascicoli 
5 volumi 
1050 pagine 

4000 foto e illustrazioni a colori 


IN REGALO a tutti 
gli acquirenti 
dell’opera completa 


ELETTRONICA , 


I GRUPPO EDITORIALE 

[JACKSON 

I DIVÌSONE GRANO ORCRE 
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JACKSON SOFT MAIL SERVICE 


L. 5.000 L. 18.000 


0619 

BUBBLE TROUBLE 

PLAYERS 

AR N C C16 

0883 

5 COMPUTER HITS 

BEAU-JOLLY 

RA N C C16 

0523 

DIAGON 

BUG-BYTE 

AR N C C16 

0884 

5 STAR GAMES II 

BEAU-JOLLY 

RA N C C16 

0524 

DROID ONE 

BUG-BYTE 

AR N C C16 

0562 

EUROPEAN GAMES 

TUNESOFT 

SPNCC16 

0485 

GUN LAW 

MASTERTRONIC 

AR N C C16 

0502 

FIGHTING 

MELBOURNE 

AR S C 06 

1004 

GWNN 

MASTERTRONIC 

AR N CC16 


WARRIORS 

HOUSE 


0758 

HARVEY 

FIREBIRD 

AR N C Ciò 

0417 

FOOTBALLER OF 

GREMLIN 

SP N C 06 


HEADBANGER 




THE YEAR 



0525 

JAILBREAK 

BUG-BYTE 

AR N C C16 

0481 

FUTURE KNIGHT 

GREMLIN 

AR N C 06 

0004 

KIK START 

MASTERTRONIC 

SP N C CIÒ 

0556 

FUTURE SHOCK 

TYNESOFT 

AR N C 06 

0526 

LEAPER 

BUG-BYTE 

AR N C Ciò 

0347 

HIT PACK 

ELITE 

RA N C 06 

0367 

MASTERCHESS 

MASTERTRONIC 

TA N C Ciò 

0112 

INTERNATIONAL 

ENDURANCE 

SP N C 06 

0632 

MEGABOLTS 

MASTERTRONIC 

AR N C Ciò 


KARATÉ 

GAMES 


0028 

MOLECULE MAN 

MASTERTRONIC 

AR N C Ciò 

0410 

KONAMI'S 

IMAGINE 

AR N C 06 

0736 

MONKEY MAGIC 

MICRO DESIGN 

AR N C Ciò 


COIN-OP HITS 



0516 

NINJA MASTER 

FIREBIRD 

SP N C Ciò 

0092 

PAPER BOY 

ELITE 

AR S C 06 

0488 

POWERBALL 

MASTERTRONIC 

AR N C Ciò 

0561 

PIN POINT 

ANCO 

AR N C 06 

0527 

SOLO 

BUG-BYTE 

AR N C Ciò 

0712 

SCOTT ADAMS 

U.S. GOLD 

RA N C 06 

0025 

SPEED KING 

MASTERTRONIC 

SP N C Ciò 


SCOOPS 



0037 

STORM 

MASTERTRONIC 

AR N C Ciò 

0774 

TERRA NOVA 

ANCO 

AR N C CIÒ 

0678 

ZAGAN WARRIOR 

BUG-BYTE 

AR N C Ciò 









L. 25.000 



L. 7.500 



0607 

3 GIOCHI SPORTIVI 

PRISM LEISURE 

RA N C Ciò 

0479 

BANDITS AT ZERO 

M.A.D. 

AR N C Ciò 





0799 

DISASTER BLASTER 

AMERICANA 

AR N C C 16 





0888 

GOLF 

YES! SOFTWARE 

SP N C CIÒ 





0886 

LAWN TENNIS 

TYNESOFT 

SPNCC16 





0887 

OLYMPIAD 

TYNESOFT 

SP N C CIÒ 





0539 

PANIC PENGUIN 

MIDAS 

AR N C C 16 






LEGENDA LISTINO ARTICOLI 

GENERE 

AA 

Arcade/avventura (senza testo) 

AC 

Accessorio 

AD 

Awentura (con testo) 

AG 

Accessorio GEOS 

AR 

Arcade 

BU 

Affari & finanza 

CW 

Cinemaware 

DB 

Database 

EX 

Sistema esperto 

FE 

Foglio elettronico 

GE 

Gestionale 

GR 

Grafica 

LI 

Linguaggio 

MA 

Manuale 

MU 

Musica 

PI 

Programma integrato 

RA 

Raccolta di programmi 

SI 

Simulazione 

SP 

Sportivo 

ST 

Strategico 

TA 

Da tavolo 

UT 

Utility 

WP 

Gestione di testi 

Noto: Manuale in italiano (S = SI - N = NOI 

1 prezzi indicati sono intesi al pubblico I.V.A. incluso. 


3»g 

Gli ordini non firmoti non verranno evasi. 

Completa le parti del buono d'ordine (o di una sua fotocopiai e spediscilo in busta 
chiuso o: 

Jackson Soft Mail Service * Via Rosellini, 12 - 20124 Milano 
Cognome Nome 

Via Città 

Cap Prov. Tel. 

Firma (se minorenne quella di un genitore) 

Desidero ricevere i seguenti articoli: 


CODICE 

COMPUTER 

TITOLO GIOCO 

PREZZO 

















Ordine minimo L. 20.000 SPESE POSTALI 

Pagamento in contrassegno TOTALE L. 

4.000 


I prezzi sono intesi al pubblico I V A inclusa 

I 
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BYTES, CORSO AVANZATO 
DI CULTURA INFORMATICA 



CORSO AVANZATO 
DI CULTURA INFORMATICA 


CONCETTI E LINGUAGGI 
DELLA PROGRAMMAZIONE 


»»ìni«r«T»i 


DIVISONE GRANDI OPERE 


Ide sapienza inforrr 
ies, il primo, vero c< 


''Con Bytks avanzi nei linguaggWevol|Jl|: For- 
etti Cobol, Assembler, C, Pascal, ARL?AE&S 
Conosci a fondo le applicazioni: CatÙ£^m, 
•sistemi esperti, informatica music^g rit CQ mr: 
pufwgrafica. Impari a procedere nella pro- 
grammazione e nei sistemi opéWitwy^con 
sicurezza Perchè Bvtes è una 11 9 ^9(94 ao èr* 
TS pp Tfflara. autorenjjp e completa, per chi 
^tudia, chi insegna, chi lavora. 

B|des: la nuova cultura universale, da oggi 
in eHjcoja in 60 fa scico li setti manft^ajlj^ 
h gw^m^plendidrW 5 f 0 Vni, che ti orrronchiitto 
il sapeiwnformatico a portata di mancT^ 
Scegli Bytes e sei pronto a mordere il futuro. 
Bytes. Nuovo da Jackson. 


